/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / efs-vms.elc.z / efs-vms.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 39 3a 35 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:59:59 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 65 66 73 2f |s-20.3/l|isp/efs/|
|000000a0| 65 66 73 2d 76 6d 73 2e | 65 6c 0a 3b 3b 3b 20 65 |efs-vms.|el.;;; e|
|000000b0| 6d 61 63 73 20 76 65 72 | 73 69 6f 6e 20 32 30 2e |macs ver|sion 20.|
|000000c0| 34 20 22 45 6d 65 72 61 | 6c 64 22 20 58 45 6d 61 |4 "Emera|ld" XEma|
|000000d0| 63 73 20 20 4c 75 63 69 | 64 2e 0a 3b 3b 3b 20 62 |cs  Luci|d..;;; b|
|000000e0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000f0| 32 2e 32 35 20 58 45 6d | 61 63 73 3b 20 32 32 2d |2.25 XEm|acs; 22-|
|00000100| 4d 61 72 2d 39 36 2e 0a | 3b 3b 3b 20 6f 70 74 69 |Mar-96..|;;; opti|
|00000110| 6d 69 7a 61 74 69 6f 6e | 20 69 73 20 6f 6e 2e 0a |mization| is on..|
|00000120| 3b 3b 3b 20 74 68 69 73 | 20 66 69 6c 65 20 75 73 |;;; this| file us|
|00000130| 65 73 20 6f 70 63 6f 64 | 65 73 20 77 68 69 63 68 |es opcod|es which|
|00000140| 20 64 6f 20 6e 6f 74 20 | 65 78 69 73 74 20 69 6e | do not |exist in|
|00000150| 20 45 6d 61 63 73 20 31 | 39 2e 0a 0a 28 69 66 20 | Emacs 1|9...(if |
|00000160| 28 61 6e 64 20 28 62 6f | 75 6e 64 70 20 27 65 6d |(and (bo|undp 'em|
|00000170| 61 63 73 2d 76 65 72 73 | 69 6f 6e 29 0a 09 20 28 |acs-vers|ion).. (|
|00000180| 6f 72 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |or (and |(boundp |
|00000190| 27 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 |'epoch::|version)|
|000001a0| 20 65 70 6f 63 68 3a 3a | 76 65 72 73 69 6f 6e 29 | epoch::|version)|
|000001b0| 0a 09 20 20 20 20 20 28 | 73 74 72 69 6e 67 2d 6c |..     (|string-l|
|000001c0| 65 73 73 70 20 65 6d 61 | 63 73 2d 76 65 72 73 69 |essp ema|cs-versi|
|000001d0| 6f 6e 20 22 32 30 22 29 | 29 29 0a 20 20 20 20 28 |on "20")|)).    (|
|000001e0| 65 72 72 6f 72 20 22 60 | 65 66 73 2d 76 6d 73 2e |error "`|efs-vms.|
|000001f0| 65 6c 27 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |el' was |compiled|
|00000200| 20 66 6f 72 20 45 6d 61 | 63 73 20 32 30 22 29 29 | for Ema|cs 20"))|
|00000210| 0a 0a 28 6f 72 20 28 62 | 6f 75 6e 64 70 20 27 63 |..(or (b|oundp 'c|
|00000220| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000230| 29 20 28 73 65 74 71 20 | 63 75 72 72 65 6e 74 2d |) (setq |current-|
|00000240| 6c 6f 61 64 2d 6c 69 73 | 74 20 6e 69 6c 29 29 0a |load-lis|t nil)).|
|00000250| 0a 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |..(byte-|code "..|
|00000260| 21 88 c2 c3 21 88 c4 c5 | c6 4f c7 c8 c9 c6 4f 51 |!...!...|.O....OQ|
|00000270| 16 5c 6e ca 0e 0b 42 16 | 0b cc 16 0d cd 0e 0b 42 |.\n...B.|.......B|
|00000280| 16 0b ce cf 21 ac 83 d0 | 16 0f cf 0e 0b 42 16 0b |....!...|.....B..|
|00000290| ce d1 21 ac 89 d2 d3 d4 | d5 d6 b0 05 16 11 d1 0e |..!.....|........|
|000002a0| 0b 42 16 0b d7 d8 d9 da | db 21 0e 1c 5c 22 dd 23 |.B......|.!..\".#|
|000002b0| 88 d7 de d9 da db 21 0e | 1c 5c 22 df 23 87 22 20 |......!.|.\".#." |
|000002c0| 5b 70 72 6f 76 69 64 65 | 20 65 66 73 2d 76 6d 73 |[provide| efs-vms|
|000002d0| 20 72 65 71 75 69 72 65 | 20 65 66 73 20 22 24 65 | require| efs "$e|
|000002e0| 66 73 20 72 65 6c 65 61 | 73 65 3a 20 31 2e 31 35 |fs relea|se: 1.15|
|000002f0| 20 24 22 20 31 34 20 2d | 32 20 22 2f 22 20 22 23 | $" 14 -|2 "/" "#|
|00000300| 52 65 76 69 73 69 6f 6e | 3a 20 31 2e 31 33 20 24 |Revision|: 1.13 $|
|00000310| 22 20 31 31 20 65 66 73 | 2d 76 6d 73 2d 76 65 72 |" 11 efs|-vms-ver|
|00000320| 73 69 6f 6e 20 63 75 72 | 72 65 6e 74 2d 6c 6f 61 |sion cur|rent-loa|
|00000330| 64 2d 6c 69 73 74 20 22 | 5c 5c 28 5b 5f 41 2d 5a |d-list "|\\([_A-Z|
|00000340| 61 2d 7a 30 2d 39 24 5d | 5b 2d 5f 41 2d 5a 61 2d |a-z0-9$]|[-_A-Za-|
|00000350| 7a 30 2d 39 24 5d 2a 5c | 5c 29 3f 5c 5c 2e 5c 5c |z0-9$]*\|\)?\\.\\|
|00000360| 28 5b 2d 5f 41 2d 5a 61 | 2d 7a 30 2d 39 24 5d 2a |([-_A-Za|-z0-9$]*|
|00000370| 5c 5c 29 3b 5b 30 2d 39 | 5d 2b 22 20 65 66 73 2d |\\);[0-9|]+" efs-|
|00000380| 76 6d 73 2d 66 69 6c 65 | 6e 61 6d 65 2d 72 65 67 |vms-file|name-reg|
|00000390| 65 78 70 20 62 6f 75 6e | 64 70 20 65 66 73 2d 76 |exp boun|dp efs-v|
|000003a0| 6d 73 2d 6d 6f 6e 74 68 | 2d 61 6c 69 73 74 20 28 |ms-month|-alist (|
|000003b0| 28 22 4a 41 4e 22 20 2e | 20 31 29 20 28 22 46 45 |("JAN" .| 1) ("FE|
|000003c0| 42 22 20 2e 20 32 29 20 | 28 22 4d 41 52 22 20 2e |B" . 2) |("MAR" .|
|000003d0| 20 33 29 20 28 22 41 50 | 52 22 20 2e 20 34 29 20 | 3) ("AP|R" . 4) |
|000003e0| 28 22 4d 41 59 22 20 2e | 20 35 29 20 28 22 4a 55 |("MAY" .| 5) ("JU|
|000003f0| 4e 22 20 2e 20 36 29 20 | 28 22 4a 55 4c 22 20 2e |N" . 6) |("JUL" .|
|00000400| 20 37 29 20 28 22 41 55 | 47 22 20 2e 20 38 29 20 | 7) ("AU|G" . 8) |
|00000410| 28 22 53 45 50 22 20 2e | 20 39 29 20 28 22 4f 43 |("SEP" .| 9) ("OC|
|00000420| 54 22 20 2e 20 31 30 29 | 20 28 22 4e 4f 56 22 20 |T" . 10)| ("NOV" |
|00000430| 2e 20 31 31 29 20 28 22 | 44 45 43 22 20 2e 20 31 |. 11) ("|DEC" . 1|
|00000440| 32 29 29 20 65 66 73 2d | 76 6d 73 2d 64 61 74 65 |2)) efs-|vms-date|
|00000450| 2d 72 65 67 65 78 70 20 | 22 5c 5c 28 5b 30 2d 33 |-regexp |"\\([0-3|
|00000460| 5d 3f 5b 30 2d 39 5d 5c | 5c 29 2d 22 20 22 5c 5c |]?[0-9]\|\)-" "\\|
|00000470| 28 4a 41 4e 5c 5c 7c 46 | 45 42 5c 5c 7c 4d 41 52 |(JAN\\|F|EB\\|MAR|
|00000480| 5c 5c 7c 41 50 52 5c 5c | 7c 4d 41 59 5c 5c 7c 4a |\\|APR\\||MAY\\|J|
|00000490| 55 4e 5c 5c 7c 22 20 22 | 4a 55 4c 5c 5c 7c 41 55 |UN\\|" "|JUL\\|AU|
|000004a0| 47 5c 5c 7c 53 45 50 5c | 5c 7c 4f 43 54 5c 5c 7c |G\\|SEP\|\|OCT\\||
|000004b0| 4e 4f 56 5c 5c 7c 44 45 | 43 5c 5c 29 2d 22 20 22 |NOV\\|DE|C\\)-" "|
|000004c0| 5c 5c 28 5b 30 2d 39 5d | 5b 30 2d 39 5d 5b 30 2d |\\([0-9]|[0-9][0-|
|000004d0| 39 5d 3f 5b 30 2d 39 5d | 3f 5c 5c 29 20 5c 5c 28 |9]?[0-9]|?\\) \\(|
|000004e0| 5c 5c 28 5b 30 2d 35 5d | 5b 30 2d 39 5d 5c 5c 29 |\\([0-5]|[0-9]\\)|
|000004f0| 3a 5c 5c 28 5b 30 2d 35 | 5d 5b 30 2d 39 5d 5c 5c |:\\([0-5|][0-9]\\|
|00000500| 29 22 20 22 5c 5c 28 3a | 5b 30 2d 35 5d 5b 30 2d |)" "\\(:|[0-5][0-|
|00000510| 39 5d 5c 5c 29 3f 5c 5c | 29 3f 20 22 20 70 75 74 |9]\\)?\\|)? " put|
|00000520| 20 65 66 73 2d 66 69 78 | 2d 70 61 74 68 20 69 6e | efs-fix|-path in|
|00000530| 74 65 72 6e 20 73 79 6d | 62 6f 6c 2d 6e 61 6d 65 |tern sym|bol-name|
|00000540| 20 76 6d 73 20 65 66 73 | 2d 6b 65 79 2d 6f 62 61 | vms efs|-key-oba|
|00000550| 72 72 61 79 20 23 5b 28 | 70 61 74 68 20 26 6f 70 |rray #[(|path &op|
|00000560| 74 69 6f 6e 61 6c 20 72 | 65 76 65 72 73 65 29 20 |tional r|everse) |
|00000570| 22 c0 20 70 09 1a 1b 1c | c5 8e c6 11 0e 07 ab e6 |". p....|........|
|00000580| c8 c9 0e 5c 6e 5c 22 ab | d7 c6 89 89 1e 0b 1e 0c |...\n\".|........|
|00000590| 1e 0d ce 94 ab 89 0e 5c | 6e ce 94 ce 95 4f 16 0d |.......\|n....O..|
|000005a0| cf 94 ab 89 0e 5c 6e cf | 94 cf 95 4f 16 0c d0 94 |.....\n.|...O....|
|000005b0| ab 89 0e 5c 6e d0 94 d0 | 95 4f 16 0b 0e 0c ab 8d |...\n...|.O......|
|000005c0| d1 d2 d3 d4 0e 0c ce d5 | 4f 5c 22 5c 22 16 0c 0e |........|O\"\"...|
|000005d0| 0d ad 85 d6 0e 0d d6 51 | 0e 0c 89 ad 81 d6 0e 0b |.......Q|........|
|000005e0| 52 2b 82 02 01 d7 d8 0e | 5c 6e 5c 22 82 02 01 c6 |R+......|\n\"....|
|000005f0| 89 89 1e 0b 1e 0c 1e 0d | c8 d9 0e 5c 6e 5c 22 ab |........|...\n\".|
|00000600| 92 0e 5c 6e ce da 95 53 | 4f 16 0d 0e 5c 6e da 95 |..\n...S|O...\n..|
|00000610| 53 c6 4f 16 5c 6e db 0e | 5c 6e 21 16 0c dc 0e 5c |S.O.\n..|\n!....\|
|00000620| 6e 21 16 0b 0e 0c ab d3 | 0e 0c 47 53 da 1e 1d 89 |n!......|..GS....|
|00000630| 1e 1e da 58 ab 85 c6 16 | 0c aa bf 0e 1d 0e 1e 58 |...X....|.......X|
|00000640| ab b8 df 0e 0c 0e 1d 48 | e0 5c 22 ab a6 0e 1d da |.......H|.\".....|
|00000650| 55 ab 89 0e 0c 0e 1d e1 | 49 88 aa 97 0e 1d 0e 1e |U.......|I.......|
|00000660| 55 ab 89 0e 0c 0e 1d e2 | 49 88 aa 87 0e 0c 0e 1d |U.......|I.......|
|00000670| e3 49 88 0e 1d 54 89 16 | 1d aa 43 2a 0e 0d 0e 0c |.I...T..|..C*....|
|00000680| 0e 0b 51 2b 2c 87 22 20 | 5b 6d 61 74 63 68 2d 64 |..Q+,." |[match-d|
|00000690| 61 74 61 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |ata case|-fold-se|
|000006a0| 61 72 63 68 20 63 66 73 | 20 62 75 66 66 20 6d 61 |arch cfs| buff ma|
|000006b0| 74 63 68 2d 64 61 74 61 | 20 28 28 62 79 74 65 2d |tch-data| ((byte-|
|000006c0| 63 6f 64 65 20 22 c0 c1 | c2 8f 88 c3 0c 21 87 22 |code "..|.....!."|
|000006d0| 20 5b 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 | [nil (b|yte-code|
|000006e0| 20 22 8a 08 71 88 09 12 | 29 c3 87 22 20 5b 62 75 | "..q...|).." [bu|
|000006f0| 66 66 20 63 66 73 20 63 | 61 73 65 2d 66 6f 6c 64 |ff cfs c|ase-fold|
|00000700| 2d 73 65 61 72 63 68 20 | 6e 69 6c 5d 20 31 29 20 |-search |nil] 1) |
|00000710| 28 28 65 72 72 6f 72 29 | 29 20 73 74 6f 72 65 2d |((error)|) store-|
|00000720| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|00000730| 2d 64 61 74 61 5d 20 33 | 29 29 20 6e 69 6c 20 72 |-data] 3|)) nil r|
|00000740| 65 76 65 72 73 65 20 73 | 74 72 69 6e 67 2d 6d 61 |everse s|tring-ma|
|00000750| 74 63 68 20 22 5e 5c 5c | 28 5b 5e 3a 5d 2b 3a 5c |tch "^\\|([^:]+:\|
|00000760| 5c 29 3f 5c 5c 28 5c 5c | 5b 5b 5e 5d 5d 2b 5c 5c |\)?\\(\\|[[^]]+\\|
|00000770| 5d 5c 5c 29 3f 5c 5c 28 | 5b 5e 5d 5b 5d 2a 5c 5c |]\\)?\\(|[^][]*\\|
|00000780| 29 24 22 20 70 61 74 68 | 20 66 69 6c 65 20 64 69 |)$" path| file di|
|00000790| 72 20 64 72 69 76 65 20 | 31 20 32 20 33 20 61 70 |r drive |1 2 3 ap|
|000007a0| 70 6c 79 20 63 6f 6e 63 | 61 74 20 6d 61 70 63 61 |ply conc|at mapca|
|000007b0| 72 20 23 5b 28 63 68 61 | 72 29 20 22 08 c1 55 ab |r #[(cha|r) "..U.|
|000007c0| 84 c2 c3 21 87 c2 08 21 | 87 22 20 5b 63 68 61 72 |...!...!|." [char|
|000007d0| 20 3f 5c 2e 20 76 65 63 | 74 6f 72 20 3f 5c 2f 5d | ?\. vec|tor ?\/]|
|000007e0| 20 32 5d 20 2d 31 20 22 | 2f 22 20 65 72 72 6f 72 | 2] -1 "|/" error|
|000007f0| 20 22 70 61 74 68 20 25 | 73 20 64 69 64 6e 27 74 | "path %|s didn't|
|00000800| 20 6d 61 74 63 68 22 20 | 22 5e 2f 5b 5e 3a 2f 5d | match" |"^/[^:/]|
|00000810| 2b 3a 2f 22 20 30 20 66 | 69 6c 65 2d 6e 61 6d 65 |+:/" 0 f|ile-name|
|00000820| 2d 64 69 72 65 63 74 6f | 72 79 20 65 66 73 2d 69 |-directo|ry efs-i|
|00000830| 6e 74 65 72 6e 61 6c 2d | 66 69 6c 65 2d 6e 61 6d |nternal-|file-nam|
|00000840| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 6e |e-nondir|ectory n|
|00000850| 20 6c 65 6e 20 63 68 61 | 72 2d 65 71 75 61 6c 20 | len cha|r-equal |
|00000860| 3f 5c 2f 20 3f 5c 5b 20 | 3f 5c 5d 20 3f 5c 2e 5d |?\/ ?\[ |?\] ?\.]|
|00000870| 20 38 5d 20 65 66 73 2d | 66 69 78 2d 64 69 72 2d | 8] efs-|fix-dir-|
|00000880| 70 61 74 68 20 23 5b 28 | 64 69 72 2d 70 61 74 68 |path #[(|dir-path|
|00000890| 29 20 22 08 c1 98 ab 84 | c2 c3 21 87 c4 c5 08 5c |) ".....|..!....\|
|000008a0| 22 ab 84 c2 c6 21 87 c7 | c8 08 5c 22 87 22 20 5b |"....!..|..\"." [|
|000008b0| 64 69 72 2d 70 61 74 68 | 20 22 2f 22 20 65 72 72 |dir-path| "/" err|
|000008c0| 6f 72 20 22 43 61 6e 6e | 6f 74 20 67 65 74 20 6c |or "Cann|ot get l|
|000008d0| 69 73 74 69 6e 67 20 66 | 6f 72 20 66 69 63 74 69 |isting f|or ficti|
|000008e0| 74 69 6f 75 73 20 5c 22 | 2f 5c 22 20 64 69 72 65 |tious \"|/\" dire|
|000008f0| 63 74 6f 72 79 2e 22 20 | 73 74 72 69 6e 67 2d 6d |ctory." |string-m|
|00000900| 61 74 63 68 20 22 5e 2f | 5b 2d 41 2d 5a 30 2d 39 |atch "^/|[-A-Z0-9|
|00000910| 5f 24 5d 2b 3a 2f 24 22 | 20 22 43 61 6e 6e 6f 74 |_$]+:/$"| "Cannot|
|00000920| 20 67 65 74 20 6c 69 73 | 74 69 6e 67 20 66 6f 72 | get lis|ting for|
|00000930| 20 64 65 76 69 63 65 2e | 22 20 65 66 73 2d 66 69 | device.|" efs-fi|
|00000940| 78 2d 70 61 74 68 20 76 | 6d 73 5d 20 33 5d 5d 20 |x-path v|ms] 3]] |
|00000950| 35 29 0a 23 40 35 38 20 | 45 78 74 72 61 63 74 20 |5).#@58 |Extract |
|00000960| 74 68 65 20 6e 65 78 74 | 20 66 69 6c 65 6e 61 6d |the next| filenam|
|00000970| 65 20 66 72 6f 6d 20 61 | 20 56 4d 53 20 64 69 72 |e from a| VMS dir|
|00000980| 65 64 2d 6c 69 6b 65 20 | 6c 69 73 74 69 6e 67 2e |ed-like |listing.|
|00000990| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 65 66 73 |..(defal|ias 'efs|
|000009a0| 2d 70 61 72 73 65 2d 76 | 6d 73 2d 66 69 6c 65 6e |-parse-v|ms-filen|
|000009b0| 61 6d 65 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ame '(ma|cro . #[|
|000009c0| 6e 69 6c 20 22 c0 87 22 | 20 5b 28 69 66 20 28 72 |nil ".."| [(if (r|
|000009d0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000009e0| 20 65 66 73 2d 76 6d 73 | 2d 66 69 6c 65 6e 61 6d | efs-vms|-filenam|
|000009f0| 65 2d 72 65 67 65 78 70 | 20 6e 69 6c 20 74 29 20 |e-regexp| nil t) |
|00000a00| 28 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e |(buffer-|substrin|
|00000a10| 67 20 28 6d 61 74 63 68 | 2d 62 65 67 69 6e 6e 69 |g (match|-beginni|
|00000a20| 6e 67 20 30 29 20 28 6d | 61 74 63 68 2d 65 6e 64 |ng 0) (m|atch-end|
|00000a30| 20 30 29 29 29 5d 20 31 | 20 28 23 24 20 2e 20 32 | 0)))] 1| (#$ . 2|
|00000a40| 33 39 32 29 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |392)])).|(defalia|
|00000a50| 73 20 27 65 66 73 2d 70 | 61 72 73 65 2d 76 6d 73 |s 'efs-p|arse-vms|
|00000a60| 2d 6c 69 73 74 69 6e 67 | 20 23 5b 6e 69 6c 20 22 |-listing| #[nil "|
|00000a70| c0 20 c1 1a 1b 65 62 88 | c4 20 70 0d 1e 06 1e 07 |. ...eb.|. p.....|
|00000a80| 1e 08 c9 8e c1 15 ca 0e | 0b c1 cc 23 ad 85 cd 94 |........|...#....|
|00000a90| cd 95 7b 89 12 ab ff ce | cf 5c 6e 5c 22 ab a7 5c |..{.....|.\n\"..\|
|00000aa0| 6e cd 89 94 4f 89 1e 10 | 3b ab 84 0e 10 aa 84 d1 |n...O...|;.......|
|00000ab0| 0e 10 21 29 1e 10 d2 0e | 10 0b 5c 22 1e 13 d4 0e |..!)....|..\"....|
|00000ac0| 13 d5 d6 23 88 2a aa cc | 5c 6e 89 1e 10 3b ab 84 |...#.*..|\n...;..|
|00000ad0| 0e 10 aa 84 d1 0e 10 21 | 29 1e 10 d2 0e 10 0b 5c |.......!|)......\|
|00000ae0| 22 1e 13 d4 0e 13 d5 d7 | 23 88 2a ce d8 5c 6e 5c |".......|#.*..\n\|
|00000af0| 22 ab a5 5c 6e cd 89 94 | 4f 89 1e 10 3b ab 84 0e |"..\n...|O...;...|
|00000b00| 10 aa 84 d1 0e 10 21 29 | 1e 10 d2 0e 10 0b 5c 22 |......!)|......\"|
|00000b10| 1e 13 d4 0e 13 d5 d9 23 | 88 2a da 79 88 82 16 00 |.......#|.*.y....|
|00000b20| db 1e 10 db 3b ab 84 0e | 10 aa 84 d1 0e 10 21 29 |....;...|......!)|
|00000b30| 1e 10 d2 0e 10 0b 5c 22 | 1e 13 d4 0e 13 d5 dc 23 |......\"|.......#|
|00000b40| 88 2a dd 1e 10 dd 3b ab | 84 0e 10 aa 84 d1 0e 10 |.*....;.|........|
|00000b50| 21 29 1e 10 d2 0e 10 0b | 5c 22 1e 13 d4 0e 13 d5 |!)......|\"......|
|00000b60| de 23 88 2e 06 0b 2a 87 | 22 20 5b 65 66 73 2d 6d |.#....*.|" [efs-m|
|00000b70| 61 6b 65 2d 68 61 73 68 | 74 61 62 6c 65 20 6e 69 |ake-hash|table ni|
|00000b80| 6c 20 66 69 6c 65 20 74 | 62 6c 20 6d 61 74 63 68 |l file t|bl match|
|00000b90| 2d 64 61 74 61 20 63 61 | 73 65 2d 66 6f 6c 64 2d |-data ca|se-fold-|
|00000ba0| 73 65 61 72 63 68 20 63 | 66 73 20 62 75 66 66 20 |search c|fs buff |
|00000bb0| 6d 61 74 63 68 2d 64 61 | 74 61 20 28 28 62 79 74 |match-da|ta ((byt|
|00000bc0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 8f 88 c3 0c 21 |e-code "|.......!|
|00000bd0| 87 22 20 5b 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |." [nil |(byte-co|
|00000be0| 64 65 20 22 8a 08 71 88 | 09 12 29 c3 87 22 20 5b |de "..q.|..).." [|
|00000bf0| 62 75 66 66 20 63 66 73 | 20 63 61 73 65 2d 66 6f |buff cfs| case-fo|
|00000c00| 6c 64 2d 73 65 61 72 63 | 68 20 6e 69 6c 5d 20 31 |ld-searc|h nil] 1|
|00000c10| 29 20 28 28 65 72 72 6f | 72 29 29 20 73 74 6f 72 |) ((erro|r)) stor|
|00000c20| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 6d 61 74 |e-match-|data mat|
|00000c30| 63 68 2d 64 61 74 61 5d | 20 33 29 29 20 72 65 2d |ch-data]| 3)) re-|
|00000c40| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 65 |search-f|orward e|
|00000c50| 66 73 2d 76 6d 73 2d 66 | 69 6c 65 6e 61 6d 65 2d |fs-vms-f|ilename-|
|00000c60| 72 65 67 65 78 70 20 74 | 20 30 20 73 74 72 69 6e |regexp t| 0 strin|
|00000c70| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 2e 5c 5c 28 44 |g-match |"\\.\\(D|
|00000c80| 49 52 5c 5c 7c 64 69 72 | 5c 5c 29 3b 5b 30 2d 39 |IR\\|dir|\\);[0-9|
|00000c90| 5d 2b 22 20 6b 65 79 20 | 70 72 69 6e 31 2d 74 6f |]+" key |prin1-to|
|00000ca0| 2d 73 74 72 69 6e 67 20 | 69 6e 74 65 72 6e 20 73 |-string |intern s|
|00000cb0| 79 6d 20 70 75 74 20 76 | 61 6c 20 28 74 29 20 28 |ym put v|al (t) (|
|00000cc0| 6e 69 6c 29 20 22 3b 5b | 30 2d 39 5d 2b 24 22 20 |nil) ";[|0-9]+$" |
|00000cd0| 28 6e 69 6c 29 20 31 20 | 22 2e 22 20 28 74 29 20 |(nil) 1 |"." (t) |
|00000ce0| 22 2e 2e 22 20 28 74 29 | 5d 20 35 5d 29 0a 28 62 |".." (t)|] 5]).(b|
|00000cf0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 c4 21 |yte-code| ".....!|
|00000d00| 0d 5c 22 c6 23 88 c0 c7 | c2 c3 c4 21 0d 5c 22 c8 |.\".#...|...!.\".|
|00000d10| 23 87 22 20 5b 70 75 74 | 20 65 66 73 2d 70 61 72 |#." [put| efs-par|
|00000d20| 73 65 2d 6c 69 73 74 69 | 6e 67 20 69 6e 74 65 72 |se-listi|ng inter|
|00000d30| 6e 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 76 6d |n symbol|-name vm|
|00000d40| 73 20 65 66 73 2d 6b 65 | 79 2d 6f 62 61 72 72 61 |s efs-ke|y-obarra|
|00000d50| 79 20 23 5b 28 68 6f 73 | 74 20 75 73 65 72 20 64 |y #[(hos|t user d|
|00000d60| 69 72 20 70 61 74 68 20 | 26 6f 70 74 69 6f 6e 61 |ir path |&optiona|
|00000d70| 6c 20 73 77 69 74 63 68 | 65 73 29 20 22 65 62 88 |l switch|es) "eb.|
|00000d80| c0 20 70 09 1a 1b 1c c5 | 8e c6 11 c7 c8 c6 c9 23 |. p.....|.......#|
|00000d90| ab a1 ca cb 0e 0c 0e 0d | 23 88 c9 1e 0e cf 0e 10 |........|#.......|
|00000da0| c6 d1 d2 d3 0e 10 21 5c | 22 c9 24 88 29 65 62 88 |......!\|".$.)eb.|
|00000db0| d4 20 aa 82 d4 20 2c 87 | 22 20 5b 6d 61 74 63 68 |. ... ,.|" [match|
|00000dc0| 2d 64 61 74 61 20 63 61 | 73 65 2d 66 6f 6c 64 2d |-data ca|se-fold-|
|00000dd0| 73 65 61 72 63 68 20 63 | 66 73 20 62 75 66 66 20 |search c|fs buff |
|00000de0| 6d 61 74 63 68 2d 64 61 | 74 61 20 28 28 62 79 74 |match-da|ta ((byt|
|00000df0| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 8f 88 c3 0c 21 |e-code "|.......!|
|00000e00| 87 22 20 5b 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |." [nil |(byte-co|
|00000e10| 64 65 20 22 8a 08 71 88 | 09 12 29 c3 87 22 20 5b |de "..q.|..).." [|
|00000e20| 62 75 66 66 20 63 66 73 | 20 63 61 73 65 2d 66 6f |buff cfs| case-fo|
|00000e30| 6c 64 2d 73 65 61 72 63 | 68 20 6e 69 6c 5d 20 31 |ld-searc|h nil] 1|
|00000e40| 29 20 28 28 65 72 72 6f | 72 29 29 20 73 74 6f 72 |) ((erro|r)) stor|
|00000e50| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 6d 61 74 |e-match-|data mat|
|00000e60| 63 68 2d 64 61 74 61 5d | 20 33 29 29 20 6e 69 6c |ch-data]| 3)) nil|
|00000e70| 20 73 65 61 72 63 68 2d | 66 6f 72 77 61 72 64 20 | search-|forward |
|00000e80| 22 5c 6e 53 69 7a 65 3a | 22 20 74 20 65 66 73 2d |"\nSize:|" t efs-|
|00000e90| 61 64 64 2d 6c 69 73 74 | 69 6e 67 2d 74 79 70 65 |add-list|ing-type|
|00000ea0| 20 76 6d 73 3a 66 75 6c | 6c 20 68 6f 73 74 20 75 | vms:ful|l host u|
|00000eb0| 73 65 72 20 65 66 73 2d | 6c 73 2d 75 6e 63 61 63 |ser efs-|ls-uncac|
|00000ec0| 68 65 20 65 66 73 2d 6c | 73 20 70 61 74 68 20 66 |he efs-l|s path f|
|00000ed0| 6f 72 6d 61 74 20 22 52 | 65 6c 69 73 74 69 6e 67 |ormat "R|elisting|
|00000ee0| 20 25 73 22 20 65 66 73 | 2d 72 65 6c 61 74 69 76 | %s" efs|-relativ|
|00000ef0| 69 7a 65 2d 66 69 6c 65 | 6e 61 6d 65 20 65 66 73 |ize-file|name efs|
|00000f00| 2d 70 61 72 73 65 2d 76 | 6d 73 2d 6c 69 73 74 69 |-parse-v|ms-listi|
|00000f10| 6e 67 5d 20 37 5d 20 65 | 66 73 2d 74 2d 63 6f 6e |ng] 7] e|fs-t-con|
|00000f20| 76 65 72 74 65 72 20 23 | 5b 28 26 6f 70 74 69 6f |verter #|[(&optio|
|00000f30| 6e 61 6c 20 72 65 67 65 | 78 70 20 72 65 76 65 72 |nal rege|xp rever|
|00000f40| 73 65 29 20 22 08 3f 85 | cb 00 65 62 88 c1 20 70 |se) ".?.|..eb.. p|
|00000f50| 5c 6e 1b 1c 1d c6 8e c7 | 12 c8 0e 09 c7 ca 23 85 |\n......|......#.|
|00000f60| ca 00 c7 89 89 89 1e 0b | 1e 0c 1e 0d 1e 0e cf 79 |........|.......y|
|00000f70| 88 60 16 0e d0 0e 09 21 | ab f2 60 16 0d cf 95 62 |.`.....!|..`....b|
|00000f80| 88 6c ab 83 d1 aa 81 d2 | 79 88 60 16 0c cf 95 62 |.l......|y.`....b|
|00000f90| 88 c8 0e 13 c7 ca 23 ab | d3 d4 d5 94 d5 95 7b 21 |......#.|......{!|
|00000fa0| d6 d1 94 d1 95 7b 0e 17 | 5c 22 41 d4 d2 94 d2 95 |.....{..|\"A.....|
|00000fb0| 7b 21 45 d8 94 ab a0 d4 | d9 94 d9 95 7b 21 d4 da |{!E.....|....{!..|
|00000fc0| 94 da 95 7b 21 db 94 ab | 8a d4 db 94 54 db 95 7b |...{!...|....T..{|
|00000fd0| 21 aa 81 cf 45 aa 84 cf | 89 89 45 a4 0e 0d 0e 0c |!...E...|..E.....|
|00000fe0| 7b 42 0e 0b 42 16 0b 0e | 0c 62 88 aa 08 0e 0b ab |{B..B...|.b......|
|00000ff0| 9e dc dd de 0e 0b df 5c | 22 5c 22 16 0b 0e 20 ab |.......\|"\"... .|
|00001000| 85 0e 0b 9f 16 0b 0e 0e | 60 7c 88 e1 e2 0e 0b 5c |........|`|.....\|
|00001010| 22 88 2c ca 2c 87 22 20 | 5b 72 65 67 65 78 70 20 |".,.,." |[regexp |
|00001020| 6d 61 74 63 68 2d 64 61 | 74 61 20 63 61 73 65 2d |match-da|ta case-|
|00001030| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 63 66 73 20 |fold-sea|rch cfs |
|00001040| 62 75 66 66 20 6d 61 74 | 63 68 2d 64 61 74 61 20 |buff mat|ch-data |
|00001050| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |((byte-c|ode "...|
|00001060| 8f 88 c3 0c 21 87 22 20 | 5b 6e 69 6c 20 28 62 79 |....!." |[nil (by|
|00001070| 74 65 2d 63 6f 64 65 20 | 22 8a 08 71 88 09 12 29 |te-code |"..q...)|
|00001080| c3 87 22 20 5b 62 75 66 | 66 20 63 66 73 20 63 61 |.." [buf|f cfs ca|
|00001090| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 6e |se-fold-|search n|
|000010a0| 69 6c 5d 20 31 29 20 28 | 28 65 72 72 6f 72 29 29 |il] 1) (|(error))|
|000010b0| 20 73 74 6f 72 65 2d 6d | 61 74 63 68 2d 64 61 74 | store-m|atch-dat|
|000010c0| 61 20 6d 61 74 63 68 2d | 64 61 74 61 5d 20 33 29 |a match-|data] 3)|
|000010d0| 29 20 6e 69 6c 20 72 65 | 2d 73 65 61 72 63 68 2d |) nil re|-search-|
|000010e0| 66 6f 72 77 61 72 64 20 | 65 66 73 2d 76 6d 73 2d |forward |efs-vms-|
|000010f0| 66 69 6c 65 6e 61 6d 65 | 2d 72 65 67 65 78 70 20 |filename|-regexp |
|00001100| 74 20 6c 69 73 74 20 65 | 6e 64 20 73 74 61 72 74 |t list e|nd start|
|00001110| 20 6c 69 73 74 2d 73 74 | 61 72 74 20 30 20 6c 6f | list-st|art 0 lo|
|00001120| 6f 6b 69 6e 67 2d 61 74 | 20 32 20 31 20 65 66 73 |oking-at| 2 1 efs|
|00001130| 2d 76 6d 73 2d 64 61 74 | 65 2d 72 65 67 65 78 70 |-vms-dat|e-regexp|
|00001140| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 33 | string-|to-int 3|
|00001150| 20 61 73 73 6f 63 20 65 | 66 73 2d 76 6d 73 2d 6d | assoc e|fs-vms-m|
|00001160| 6f 6e 74 68 2d 61 6c 69 | 73 74 20 34 20 35 20 36 |onth-ali|st 4 5 6|
|00001170| 20 37 20 6d 61 70 63 61 | 72 20 63 64 72 20 73 6f | 7 mapca|r cdr so|
|00001180| 72 74 20 65 66 73 2d 76 | 6d 73 2d 74 2d 63 6f 6e |rt efs-v|ms-t-con|
|00001190| 76 65 72 74 65 72 2d 73 | 6f 72 74 2d 70 72 65 64 |verter-s|ort-pred|
|000011a0| 20 72 65 76 65 72 73 65 | 20 61 70 70 6c 79 20 69 | reverse| apply i|
|000011b0| 6e 73 65 72 74 5d 20 36 | 5d 5d 20 35 29 0a 28 64 |nsert] 6|]] 5).(d|
|000011c0| 65 66 61 6c 69 61 73 20 | 27 65 66 73 2d 76 6d 73 |efalias |'efs-vms|
|000011d0| 2d 74 2d 63 6f 6e 76 65 | 72 74 65 72 2d 73 6f 72 |-t-conve|rter-sor|
|000011e0| 74 2d 70 72 65 64 20 23 | 5b 28 65 6c 74 31 20 65 |t-pred #|[(elt1 e|
|000011f0| 6c 74 32 29 20 22 08 40 | 19 5c 6e 40 1b 09 40 1c |lt2) ".@|.\n@..@.|
|00001200| 0b 40 1d 09 41 40 1e 06 | 0b 41 40 1e 07 c8 09 38 |.@..A@..|.A@....8|
|00001210| 1e 09 c8 0b 38 1e 5c 6e | cb 09 38 1e 0c cb 0b 38 |....8.\n|..8....8|
|00001220| 1e 0d ce 09 38 1e 0f ce | 0b 38 1e 10 0c 0d 56 ae |....8...|.8....V.|
|00001230| c4 0c 0d 55 ad bf 0e 06 | 0e 07 56 ae b8 0e 06 0e |...U....|..V.....|
|00001240| 07 55 ad b1 0e 09 0e 5c | 6e 56 ae aa 0e 09 0e 5c |.U.....\|nV.....\|
|00001250| 6e 55 ad a3 0e 0c 0e 0d | 56 ae 9c 0e 0c 0e 0d 55 |nU......|V......U|
|00001260| ad 95 0e 0f 0e 10 56 ae | 8e 0e 0f 0e 10 55 ad 87 |......V.|.....U..|
|00001270| d1 09 38 d1 0b 38 56 2e | 0c 87 22 20 5b 65 6c 74 |..8..8V.|.." [elt|
|00001280| 31 20 64 61 74 61 31 20 | 65 6c 74 32 20 64 61 74 |1 data1 |elt2 dat|
|00001290| 61 32 20 79 65 61 72 31 | 20 79 65 61 72 32 20 6d |a2 year1| year2 m|
|000012a0| 6f 6e 74 68 31 20 6d 6f | 6e 74 68 32 20 32 20 64 |onth1 mo|nth2 2 d|
|000012b0| 61 79 31 20 64 61 79 32 | 20 33 20 68 6f 75 72 31 |ay1 day2| 3 hour1|
|000012c0| 20 68 6f 75 72 32 20 34 | 20 6d 69 6e 75 74 65 31 | hour2 4| minute1|
|000012d0| 20 6d 69 6e 75 74 65 32 | 20 35 5d 20 33 5d 29 0a | minute2| 5] 3]).|
|000012e0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 c2 c3 |(byte-co|de "....|
|000012f0| c4 21 0d 5c 22 c6 23 88 | c0 c7 c2 c3 c4 21 0d 5c |.!.\".#.|.....!.\|
|00001300| 22 c8 23 88 c0 c9 c2 c3 | c4 21 0d 5c 22 ca 23 88 |".#.....|.!.\".#.|
|00001310| c0 cb c2 c3 c4 21 0d 5c | 22 cc 23 88 c0 cd c2 c3 |.....!.\|".#.....|
|00001320| c4 21 0d 5c 22 ce 23 88 | c0 cf c2 c3 c4 21 0d 5c |.!.\".#.|.....!.\|
|00001330| 22 d0 23 88 c0 d1 c2 c3 | c4 21 0d 5c 22 d2 23 88 |".#.....|.!.\".#.|
|00001340| d3 16 14 d4 0e 15 42 16 | 15 c4 0e 16 b7 ac 89 c4 |......B.|........|
|00001350| 0e 14 42 0e 16 42 16 16 | d7 16 18 d8 0e 15 42 16 |..B..B..|......B.|
|00001360| 15 c4 0e 19 b7 ac 89 c4 | 0e 18 42 0e 19 42 16 19 |........|..B..B..|
|00001370| c0 da c2 c3 c4 21 0d 5c | 22 db 23 88 c0 dc c2 c3 |.....!.\|".#.....|
|00001380| c4 21 0d 5c 22 dd 23 88 | c0 de c2 c3 c4 21 0d 5c |.!.\".#.|.....!.\|
|00001390| 22 df 23 88 c0 e0 c2 c3 | c4 21 0d 5c 22 e1 23 88 |".#.....|.!.\".#.|
|000013a0| c0 e2 c2 c3 c4 21 0d 5c | 22 e3 23 88 c0 e4 c2 c3 |.....!.\|".#.....|
|000013b0| c4 21 0d 5c 22 e5 23 88 | c0 e6 c2 c3 c4 21 0d 5c |.!.\".#.|.....!.\|
|000013c0| 22 e7 23 88 c0 e8 c2 c3 | c4 21 0d 5c 22 e9 23 88 |".#.....|.!.\".#.|
|000013d0| c0 ea c2 c3 c4 21 0d 5c | 22 eb 23 88 c0 ec c2 c3 |.....!.\|".#.....|
|000013e0| ed 21 0d 5c 22 ee 23 88 | ed 0e 16 b7 ac 89 ed 0e |.!.\".#.|........|
|000013f0| 14 42 0e 16 42 16 16 ed | 0e 19 b7 ac 89 ed 0e 18 |.B..B...|........|
|00001400| 42 0e 19 42 16 19 c0 da | c2 c3 ed 21 0d 5c 22 ef |B..B....|...!.\".|
|00001410| 23 88 c0 de c2 c3 ed 21 | 0d 5c 22 f0 23 88 c0 e0 |#......!|.\".#...|
|00001420| c2 c3 ed 21 0d 5c 22 f1 | 23 87 22 20 5b 70 75 74 |...!.\".|#." [put|
|00001430| 20 65 66 73 2d 58 2d 63 | 6f 6e 76 65 72 74 65 72 | efs-X-c|onverter|
|00001440| 20 69 6e 74 65 72 6e 20 | 73 79 6d 62 6f 6c 2d 6e | intern |symbol-n|
|00001450| 61 6d 65 20 76 6d 73 20 | 65 66 73 2d 6b 65 79 2d |ame vms |efs-key-|
|00001460| 6f 62 61 72 72 61 79 20 | 23 5b 28 26 6f 70 74 69 |obarray |#[(&opti|
|00001470| 6f 6e 61 6c 20 72 65 67 | 65 78 70 20 72 65 76 65 |onal reg|exp reve|
|00001480| 72 73 65 29 20 22 08 3f | ad eb 65 62 88 c1 20 70 |rse) ".?|..eb.. p|
|00001490| 5c 6e 1b 1c 1d c6 8e c7 | 12 c8 0e 09 c7 ca 23 ad |\n......|......#.|
|000014a0| d4 c7 89 89 1e 0b 1e 0c | 1e 0d ce 79 88 60 16 0d |........|...y.`..|
|000014b0| cf 0e 09 21 ab a1 60 16 | 0c ce 95 62 88 6c ab 83 |...!..`.|...b.l..|
|000014c0| d0 aa 81 d1 79 88 d0 94 | d0 95 7b 0e 0c 60 7b 42 |....y...|..{..`{B|
|000014d0| 0e 0b 42 16 0b aa 59 d2 | d3 d4 0e 0b 0e 15 ab 83 |..B...Y.|........|
|000014e0| d6 aa 81 d7 5c 22 5c 22 | 16 0b 0e 0d 60 7c 88 d8 |....\"\"|....`|..|
|000014f0| d9 0e 0b 5c 22 88 2b ca | 2c 87 22 20 5b 72 65 67 |...\".+.|,." [reg|
|00001500| 65 78 70 20 6d 61 74 63 | 68 2d 64 61 74 61 20 63 |exp matc|h-data c|
|00001510| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00001520| 63 66 73 20 62 75 66 66 | 20 6d 61 74 63 68 2d 64 |cfs buff| match-d|
|00001530| 61 74 61 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |ata ((by|te-code |
|00001540| 22 c0 c1 c2 8f 88 c3 0c | 21 87 22 20 5b 6e 69 6c |".......|!." [nil|
|00001550| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 8a 08 71 | (byte-c|ode "..q|
|00001560| 88 09 12 29 c3 87 22 20 | 5b 62 75 66 66 20 63 66 |...).." |[buff cf|
|00001570| 73 20 63 61 73 65 2d 66 | 6f 6c 64 2d 73 65 61 72 |s case-f|old-sear|
|00001580| 63 68 20 6e 69 6c 5d 20 | 31 29 20 28 28 65 72 72 |ch nil] |1) ((err|
|00001590| 6f 72 29 29 20 73 74 6f | 72 65 2d 6d 61 74 63 68 |or)) sto|re-match|
|000015a0| 2d 64 61 74 61 20 6d 61 | 74 63 68 2d 64 61 74 61 |-data ma|tch-data|
|000015b0| 5d 20 33 29 29 20 6e 69 | 6c 20 72 65 2d 73 65 61 |] 3)) ni|l re-sea|
|000015c0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 65 66 73 2d |rch-forw|ard efs-|
|000015d0| 76 6d 73 2d 66 69 6c 65 | 6e 61 6d 65 2d 72 65 67 |vms-file|name-reg|
|000015e0| 65 78 70 20 74 20 6c 69 | 73 74 20 73 74 61 72 74 |exp t li|st start|
|000015f0| 20 6c 69 73 74 2d 73 74 | 61 72 74 20 30 20 6c 6f | list-st|art 0 lo|
|00001600| 6f 6b 69 6e 67 2d 61 74 | 20 32 20 31 20 6d 61 70 |oking-at| 2 1 map|
|00001610| 63 61 72 20 63 64 72 20 | 73 6f 72 74 20 72 65 76 |car cdr |sort rev|
|00001620| 65 72 73 65 20 23 5b 28 | 78 20 79 29 20 22 08 40 |erse #[(|x y) ".@|
|00001630| 09 40 99 87 22 20 5b 79 | 20 78 5d 20 32 5d 20 23 |.@.." [y| x] 2] #|
|00001640| 5b 28 78 20 79 29 20 22 | 08 40 09 40 99 87 22 20 |[(x y) "|.@.@.." |
|00001650| 5b 78 20 79 5d 20 32 5d | 20 61 70 70 6c 79 20 69 |[x y] 2]| apply i|
|00001660| 6e 73 65 72 74 5d 20 35 | 5d 20 65 66 73 2d 64 65 |nsert] 5|] efs-de|
|00001670| 6c 65 74 65 2d 66 69 6c | 65 2d 65 6e 74 72 79 20 |lete-fil|e-entry |
|00001680| 23 5b 28 70 61 74 68 20 | 26 6f 70 74 69 6f 6e 61 |#[(path |&optiona|
|00001690| 6c 20 64 69 72 2d 70 29 | 20 22 c0 09 73 1a 0b 83 |l dir-p)| "..s...|
|000016a0| 93 00 c4 0d 21 c6 1e 07 | 1d c8 0d 0e 09 5c 6e 23 |....!...|.....\n#|
|000016b0| 88 ca 0d 21 15 cb 0d 21 | 89 1e 0c 3b ab 84 0e 0c |...!...!|...;....|
|000016c0| aa 84 cd 0e 0c 21 29 1e | 0c 5c 6e ab b3 ce 1e 0f |.....!).|.\n.....|
|000016d0| 0e 0c 1e 10 0e 09 1e 11 | 0e 0c 47 1e 12 d3 0e 10 |........|..G.....|
|000016e0| 0e 11 d4 23 89 1e 15 ad | 94 0e 15 ce 61 ab 88 d6 |...#....|....a...|
|000016f0| 0e 10 0e 11 5c 22 aa 86 | d6 0e 15 0e 11 5c 22 2d |....\"..|.....\"-|
|00001700| aa 86 d7 0e 0c 0e 09 5c | 22 89 1e 18 ad 84 0e 18 |.......\|".......|
|00001710| d9 4e 2a 89 16 07 ab 96 | c8 da 0d 21 89 1e 1b dc |.N*.....|...!....|
|00001720| 98 ab 83 dd aa 82 0e 1b | 29 0e 07 5c 6e 23 88 2a |........|)..\n#.*|
|00001730| 82 47 01 de 20 70 0e 1f | 1e 20 1e 21 1e 5c 22 e3 |.G.. p..|. .!.\".|
|00001740| 8e c6 16 1f da 0d 21 89 | 1e 1b dc 98 ab 83 dd aa |......!.|........|
|00001750| 82 0e 1b 29 1e 1b e4 e5 | 0e 1b 5c 22 83 46 01 cb |...)....|..\".F..|
|00001760| 0d 21 89 1e 0c 3b ab 84 | 0e 0c aa 84 cd 0e 0c 21 |.!...;..|.......!|
|00001770| 29 1e 0c 5c 6e ab b3 ce | 1e 0f 0e 0c 1e 10 0e 09 |)..\n...|........|
|00001780| 1e 11 0e 0c 47 1e 12 d3 | 0e 10 0e 11 e6 23 89 1e |....G...|.....#..|
|00001790| 15 ad 94 0e 15 ce 61 ab | 88 d6 0e 10 0e 11 5c 22 |......a.|......\"|
|000017a0| aa 86 d6 0e 15 0e 11 5c | 22 2d aa 86 d7 0e 0c 0e |.......\|"-......|
|000017b0| 09 5c 22 89 1e 18 ad 84 | 0e 18 d9 4e 2a 89 1e 07 |.\".....|...N*...|
|000017c0| ab a9 0e 1b e7 89 94 4f | 5c 6e e7 94 1e 12 1e 0f |.......O|\n......|
|000017d0| 1e 28 c8 0e 1b 0e 07 5c | 6e 23 88 e9 0e 28 0e 07 |.(.....\|n#...(..|
|000017e0| ea 23 ac 88 c8 0e 28 0e | 07 5c 6e 23 88 2b 29 2d |.#....(.|.\n#.+)-|
|000017f0| eb 0d ce 5c 6e 23 29 87 | 22 20 5b 76 6d 73 20 65 |...\n#).|" [vms e|
|00001800| 66 73 2d 63 61 73 65 2d | 69 6e 73 65 6e 73 69 74 |fs-case-|insensit|
|00001810| 69 76 65 2d 68 6f 73 74 | 2d 74 79 70 65 73 20 69 |ive-host|-types i|
|00001820| 67 6e 6f 72 65 2d 63 61 | 73 65 20 64 69 72 2d 70 |gnore-ca|se dir-p|
|00001830| 20 66 69 6c 65 2d 6e 61 | 6d 65 2d 61 73 2d 64 69 | file-na|me-as-di|
|00001840| 72 65 63 74 6f 72 79 20 | 70 61 74 68 20 6e 69 6c |rectory |path nil|
|00001850| 20 66 69 6c 65 73 20 65 | 66 73 2d 64 65 6c 2d 68 | files e|fs-del-h|
|00001860| 61 73 68 2d 65 6e 74 72 | 79 20 65 66 73 2d 66 69 |ash-entr|y efs-fi|
|00001870| 6c 65 73 2d 68 61 73 68 | 74 61 62 6c 65 20 64 69 |les-hash|table di|
|00001880| 72 65 63 74 6f 72 79 2d | 66 69 6c 65 2d 6e 61 6d |rectory-|file-nam|
|00001890| 65 20 66 69 6c 65 2d 6e | 61 6d 65 2d 64 69 72 65 |e file-n|ame-dire|
|000018a0| 63 74 6f 72 79 20 6b 65 | 79 20 70 72 69 6e 31 2d |ctory ke|y prin1-|
|000018b0| 74 6f 2d 73 74 72 69 6e | 67 20 74 20 63 6f 6d 70 |to-strin|g t comp|
|000018c0| 6c 65 74 69 6f 6e 2d 69 | 67 6e 6f 72 65 2d 63 61 |letion-i|gnore-ca|
|000018d0| 73 65 20 6e 61 6d 65 20 | 74 62 6c 20 6c 65 6e 20 |se name |tbl len |
|000018e0| 74 72 79 2d 63 6f 6d 70 | 6c 65 74 69 6f 6e 20 23 |try-comp|letion #|
|000018f0| 5b 28 73 79 6d 29 20 22 | c0 09 21 47 5c 6e 55 87 |[(sym) "|..!G\nU.|
|00001900| 22 20 5b 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 73 |" [symbo|l-name s|
|00001910| 79 6d 20 6c 65 6e 5d 20 | 32 5d 20 6e 65 77 6e 61 |ym len] |2] newna|
|00001920| 6d 65 20 69 6e 74 65 72 | 6e 20 69 6e 74 65 72 6e |me inter|n intern|
|00001930| 2d 73 6f 66 74 20 73 79 | 6d 20 76 61 6c 20 66 69 |-soft sy|m val fi|
|00001940| 6c 65 2d 6e 61 6d 65 2d | 6e 6f 6e 64 69 72 65 63 |le-name-|nondirec|
|00001950| 74 6f 72 79 20 66 69 6c | 65 20 22 22 20 22 2e 22 |tory fil|e "" "."|
|00001960| 20 6d 61 74 63 68 2d 64 | 61 74 61 20 63 61 73 65 | match-d|ata case|
|00001970| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 63 66 73 |-fold-se|arch cfs|
|00001980| 20 62 75 66 66 20 6d 61 | 74 63 68 2d 64 61 74 61 | buff ma|tch-data|
|00001990| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|000019a0| c2 8f 88 c3 0c 21 87 22 | 20 5b 6e 69 6c 20 28 62 |.....!."| [nil (b|
|000019b0| 79 74 65 2d 63 6f 64 65 | 20 22 8a 08 71 88 09 12 |yte-code| "..q...|
|000019c0| 29 c3 87 22 20 5b 62 75 | 66 66 20 63 66 73 20 63 |).." [bu|ff cfs c|
|000019d0| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|000019e0| 6e 69 6c 5d 20 31 29 20 | 28 28 65 72 72 6f 72 29 |nil] 1) |((error)|
|000019f0| 29 20 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |) store-|match-da|
|00001a00| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 5d 20 33 |ta match|-data] 3|
|00001a10| 29 29 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |)) strin|g-match |
|00001a20| 22 3b 5b 30 2d 39 5d 2b | 24 22 20 23 5b 28 73 79 |";[0-9]+|$" #[(sy|
|00001a30| 6d 29 20 22 c0 09 21 47 | 5c 6e 55 87 22 20 5b 73 |m) "..!G|\nU." [s|
|00001a40| 79 6d 62 6f 6c 2d 6e 61 | 6d 65 20 73 79 6d 20 6c |ymbol-na|me sym l|
|00001a50| 65 6e 5d 20 32 5d 20 30 | 20 72 6f 6f 74 20 61 6c |en] 2] 0| root al|
|00001a60| 6c 2d 63 6f 6d 70 6c 65 | 74 69 6f 6e 73 20 23 5b |l-comple|tions #[|
|00001a70| 28 73 79 6d 29 20 22 c0 | c1 c2 0b 21 0c 23 87 22 |(sym) ".|...!.#."|
|00001a80| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|00001a90| 3b 5b 30 2d 39 5d 2b 24 | 22 20 73 79 6d 62 6f 6c |;[0-9]+$|" symbol|
|00001aa0| 2d 6e 61 6d 65 20 73 79 | 6d 20 6c 65 6e 5d 20 34 |-name sy|m len] 4|
|00001ab0| 5d 20 65 66 73 2d 64 65 | 6c 2d 66 72 6f 6d 2d 6c |] efs-de|l-from-l|
|00001ac0| 73 2d 63 61 63 68 65 5d | 20 35 5d 20 65 66 73 2d |s-cache]| 5] efs-|
|00001ad0| 61 64 64 2d 66 69 6c 65 | 2d 65 6e 74 72 79 20 23 |add-file|-entry #|
|00001ae0| 5b 28 70 61 74 68 20 64 | 69 72 2d 70 20 73 69 7a |[(path d|ir-p siz|
|00001af0| 65 20 6f 77 6e 65 72 20 | 26 6f 70 74 69 6f 6e 61 |e owner |&optiona|
|00001b00| 6c 20 6d 6f 64 65 73 20 | 6e 6c 69 6e 6b 73 20 6d |l modes |nlinks m|
|00001b10| 64 74 6d 29 20 22 c0 09 | 73 5c 6e 3f 3f 1a 0b ab |dtm) "..|s\n??...|
|00001b20| 8a 5c 6e 0c 0d c6 89 0b | af 06 aa 84 5c 6e 0c 0d |.\n.....|....\n..|
|00001b30| 45 29 1e 07 1e 08 5c 6e | 83 fe 00 c9 0e 5c 6e 21 |E)....\n|.....\n!|
|00001b40| 1e 5c 6e cb 0e 5c 6e 21 | 89 1e 0c 3b ab 84 0e 0c |.\n..\n!|...;....|
|00001b50| aa 84 cd 0e 0c 21 29 1e | 0c 0e 08 ab b3 ce 1e 0f |.....!).|........|
|00001b60| 0e 0c 1e 10 0e 11 1e 12 | 0e 0c 47 1e 13 d4 0e 10 |........|..G.....|
|00001b70| 0e 12 d5 23 89 1e 16 ad | 94 0e 16 ce 61 ab 88 d7 |...#....|....a...|
|00001b80| 0e 10 0e 12 5c 22 aa 86 | d7 0e 16 0e 12 5c 22 2d |....\"..|.....\"-|
|00001b90| aa 86 d8 0e 0c 0e 11 5c | 22 89 1e 19 ad 84 0e 19 |.......\|".......|
|00001ba0| da 4e 2a 89 1e 1b ab f2 | dc 0e 5c 6e 21 89 1e 1d |.N*.....|..\n!...|
|00001bb0| de 98 ab 83 df aa 82 0e | 1d 29 89 1e 0c 3b ab 84 |........|.)...;..|
|00001bc0| 0e 0c aa 84 cd 0e 0c 21 | 29 1e 0c 0e 08 ab bb ce |.......!|).......|
|00001bd0| 1e 0f 0e 0c 1e 10 0e 1b | 1e 12 0e 0c 47 1e 13 d4 |........|....G...|
|00001be0| 0e 10 0e 12 e0 23 89 1e | 16 ad 94 0e 16 ce 61 ab |.....#..|......a.|
|00001bf0| 88 d7 0e 10 0e 12 5c 22 | aa 86 d7 0e 16 0e 12 5c |......\"|.......\|
|00001c00| 22 2d ae 8e d7 0e 0c 0e | 1b 5c 22 aa 86 d7 0e 0c |"-......|.\".....|
|00001c10| 0e 1b 5c 22 1e 19 e1 0e | 19 da 0e 07 23 88 2a 2a |..\"....|....#.**|
|00001c20| 82 cd 02 cb 0e 5c 6e 21 | 89 1e 0c 3b ab 84 0e 0c |.....\n!|...;....|
|00001c30| aa 84 cd 0e 0c 21 29 1e | 0c 0e 08 ab b3 ce 1e 0f |.....!).|........|
|00001c40| 0e 0c 1e 10 0e 11 1e 12 | 0e 0c 47 1e 13 d4 0e 10 |........|..G.....|
|00001c50| 0e 12 e2 23 89 1e 16 ad | 94 0e 16 ce 61 ab 88 d7 |...#....|....a...|
|00001c60| 0e 10 0e 12 5c 22 aa 86 | d7 0e 16 0e 12 5c 22 2d |....\"..|.....\"-|
|00001c70| aa 86 d8 0e 0c 0e 11 5c | 22 89 1e 19 ad 84 0e 19 |.......\|".......|
|00001c80| da 4e 2a 89 1e 1b 83 cc | 02 dc 0e 5c 6e 21 89 1e |.N*.....|...\n!..|
|00001c90| 1d de 98 ab 83 df aa 82 | 0e 1d 29 1e 1d e3 20 70 |........|..)... p|
|00001ca0| 0e 24 1e 25 1e 26 1e 27 | e8 8e c6 16 24 e9 ea 0e |.$.%.&.'|....$...|
|00001cb0| 1d 5c 22 ac 9f e9 eb 0e | 1d 5c 22 ab 92 0e 1d ec |.\".....|.\".....|
|00001cc0| 89 94 4f ed 0e 1d ec 95 | c6 4f 51 16 1d aa 86 0e |..O.....|.OQ.....|
|00001cd0| 1d df 50 16 1d e9 ee 0e | 1d 5c 22 ab e9 0e 1d ec |..P.....|.\".....|
|00001ce0| 89 94 4f 89 1e 0c 3b ab | 84 0e 0c aa 84 cd 0e 0c |..O...;.|........|
|00001cf0| 21 29 1e 0c 0e 08 ab bb | ce 1e 0f 0e 0c 1e 10 0e |!)......|........|
|00001d00| 1b 1e 12 0e 0c 47 1e 13 | d4 0e 10 0e 12 ef 23 89 |.....G..|......#.|
|00001d10| 1e 16 ad 94 0e 16 ce 61 | ab 88 d7 0e 10 0e 12 5c |.......a|.......\|
|00001d20| 22 aa 86 d7 0e 16 0e 12 | 5c 22 2d ae 8e d7 0e 0c |".......|\"-.....|
|00001d30| 0e 1b 5c 22 aa 86 d7 0e | 0c 0e 1b 5c 22 1e 19 e1 |..\"....|...\"...|
|00001d40| 0e 19 da 0e 07 23 88 2a | aa cf 0e 08 1e 0f 0e 1d |.....#.*|........|
|00001d50| 47 1e 13 f0 0e 1d 0e 1b | f1 23 1e 32 0e 13 54 1e |G.......|.#.2..T.|
|00001d60| 33 f4 f5 ec f6 f7 0e 32 | 5c 22 42 5c 22 1e 35 0e |3......2|\"B\".5.|
|00001d70| 1d eb f8 0e 35 54 21 51 | 89 1e 0c 3b ab 84 0e 0c |....5T!Q|...;....|
|00001d80| aa 84 cd 0e 0c 21 29 1e | 0c d7 0e 0c 0e 1b 5c 22 |.....!).|......\"|
|00001d90| 1e 19 e1 0e 19 da 0e 07 | 23 88 2e 07 2c 0e 1d 89 |........|#...,...|
|00001da0| 1e 0c 3b ab 84 0e 0c aa | 84 cd 0e 0c 21 29 1e 0c |..;.....|....!)..|
|00001db0| 0e 08 ab bb ce 1e 0f 0e | 0c 1e 10 0e 1b 1e 12 0e |........|........|
|00001dc0| 0c 47 1e 13 d4 0e 10 0e | 12 f9 23 89 1e 16 ad 94 |.G......|..#.....|
|00001dd0| 0e 16 ce 61 ab 88 d7 0e | 10 0e 12 5c 22 aa 86 d7 |...a....|...\"...|
|00001de0| 0e 16 0e 12 5c 22 2d ae | 8e d7 0e 0c 0e 1b 5c 22 |....\"-.|......\"|
|00001df0| aa 86 d7 0e 0c 0e 1b 5c | 22 1e 19 e1 0e 19 da 0e |.......\|".......|
|00001e00| 07 23 88 2b 29 fa 0e 5c | 6e ce 0e 08 23 2a 87 22 |.#.+)..\|n...#*."|
|00001e10| 20 5b 76 6d 73 20 65 66 | 73 2d 63 61 73 65 2d 69 | [vms ef|s-case-i|
|00001e20| 6e 73 65 6e 73 69 74 69 | 76 65 2d 68 6f 73 74 2d |nsensiti|ve-host-|
|00001e30| 74 79 70 65 73 20 64 69 | 72 2d 70 20 6d 64 74 6d |types di|r-p mdtm|
|00001e40| 20 73 69 7a 65 20 6f 77 | 6e 65 72 20 6e 69 6c 20 | size ow|ner nil |
|00001e50| 65 6e 74 20 69 67 6e 6f | 72 65 2d 63 61 73 65 20 |ent igno|re-case |
|00001e60| 64 69 72 65 63 74 6f 72 | 79 2d 66 69 6c 65 2d 6e |director|y-file-n|
|00001e70| 61 6d 65 20 70 61 74 68 | 20 66 69 6c 65 2d 6e 61 |ame path| file-na|
|00001e80| 6d 65 2d 64 69 72 65 63 | 74 6f 72 79 20 6b 65 79 |me-direc|tory key|
|00001e90| 20 70 72 69 6e 31 2d 74 | 6f 2d 73 74 72 69 6e 67 | prin1-t|o-string|
|00001ea0| 20 74 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 69 67 | t compl|etion-ig|
|00001eb0| 6e 6f 72 65 2d 63 61 73 | 65 20 6e 61 6d 65 20 65 |nore-cas|e name e|
|00001ec0| 66 73 2d 66 69 6c 65 73 | 2d 68 61 73 68 74 61 62 |fs-files|-hashtab|
|00001ed0| 6c 65 20 74 62 6c 20 6c | 65 6e 20 74 72 79 2d 63 |le tbl l|en try-c|
|00001ee0| 6f 6d 70 6c 65 74 69 6f | 6e 20 23 5b 28 73 79 6d |ompletio|n #[(sym|
|00001ef0| 29 20 22 c0 09 21 47 5c | 6e 55 87 22 20 5b 73 79 |) "..!G\|nU." [sy|
|00001f00| 6d 62 6f 6c 2d 6e 61 6d | 65 20 73 79 6d 20 6c 65 |mbol-nam|e sym le|
|00001f10| 6e 5d 20 32 5d 20 6e 65 | 77 6e 61 6d 65 20 69 6e |n] 2] ne|wname in|
|00001f20| 74 65 72 6e 20 69 6e 74 | 65 72 6e 2d 73 6f 66 74 |tern int|ern-soft|
|00001f30| 20 73 79 6d 20 76 61 6c | 20 66 69 6c 65 73 20 66 | sym val| files f|
|00001f40| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00001f50| 63 74 6f 72 79 20 66 69 | 6c 65 20 22 22 20 22 2e |ctory fi|le "" ".|
|00001f60| 22 20 23 5b 28 73 79 6d | 29 20 22 c0 09 21 47 5c |" #[(sym|) "..!G\|
|00001f70| 6e 55 87 22 20 5b 73 79 | 6d 62 6f 6c 2d 6e 61 6d |nU." [sy|mbol-nam|
|00001f80| 65 20 73 79 6d 20 6c 65 | 6e 5d 20 32 5d 20 70 75 |e sym le|n] 2] pu|
|00001f90| 74 20 23 5b 28 73 79 6d | 29 20 22 c0 09 21 47 5c |t #[(sym|) "..!G\|
|00001fa0| 6e 55 87 22 20 5b 73 79 | 6d 62 6f 6c 2d 6e 61 6d |nU." [sy|mbol-nam|
|00001fb0| 65 20 73 79 6d 20 6c 65 | 6e 5d 20 32 5d 20 6d 61 |e sym le|n] 2] ma|
|00001fc0| 74 63 68 2d 64 61 74 61 | 20 63 61 73 65 2d 66 6f |tch-data| case-fo|
|00001fd0| 6c 64 2d 73 65 61 72 63 | 68 20 63 66 73 20 62 75 |ld-searc|h cfs bu|
|00001fe0| 66 66 20 6d 61 74 63 68 | 2d 64 61 74 61 20 28 28 |ff match|-data ((|
|00001ff0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 c2 8f 88 |byte-cod|e ".....|
|00002000| c3 0c 21 87 22 20 5b 6e | 69 6c 20 28 62 79 74 65 |..!." [n|il (byte|
|00002010| 2d 63 6f 64 65 20 22 8a | 08 71 88 09 12 29 c3 87 |-code ".|.q...)..|
|00002020| 22 20 5b 62 75 66 66 20 | 63 66 73 20 63 61 73 65 |" [buff |cfs case|
|00002030| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 6e 69 6c |-fold-se|arch nil|
|00002040| 5d 20 31 29 20 28 28 65 | 72 72 6f 72 29 29 20 73 |] 1) ((e|rror)) s|
|00002050| 74 6f 72 65 2d 6d 61 74 | 63 68 2d 64 61 74 61 20 |tore-mat|ch-data |
|00002060| 6d 61 74 63 68 2d 64 61 | 74 61 5d 20 33 29 29 20 |match-da|ta] 3)) |
|00002070| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 5b |string-m|atch "^[|
|00002080| 5e 3b 5d 2a 5c 5c 2e 22 | 20 22 3b 22 20 30 20 22 |^;]*\\."| ";" 0 "|
|00002090| 2e 3b 22 20 22 3b 5b 30 | 2d 39 5d 2b 24 22 20 23 |.;" ";[0|-9]+$" #|
|000020a0| 5b 28 73 79 6d 29 20 22 | c0 09 21 47 5c 6e 55 87 |[(sym) "|..!G\nU.|
|000020b0| 22 20 5b 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 73 |" [symbo|l-name s|
|000020c0| 79 6d 20 6c 65 6e 5d 20 | 32 5d 20 61 6c 6c 2d 63 |ym len] |2] all-c|
|000020d0| 6f 6d 70 6c 65 74 69 6f | 6e 73 20 23 5b 28 73 79 |ompletio|ns #[(sy|
|000020e0| 6d 29 20 22 c0 c1 c2 0b | 21 0c 23 87 22 20 5b 73 |m) "....|!.#." [s|
|000020f0| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 3b 5b 30 |tring-ma|tch ";[0|
|00002100| 2d 39 5d 2b 24 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |-9]+$" s|ymbol-na|
|00002110| 6d 65 20 73 79 6d 20 6c | 65 6e 5d 20 34 5d 20 76 |me sym l|en] 4] v|
|00002120| 65 72 73 69 6f 6e 73 20 | 4e 20 61 70 70 6c 79 20 |ersions |N apply |
|00002130| 6d 61 78 20 6d 61 70 63 | 61 72 20 23 5b 28 78 29 |max mapc|ar #[(x)|
|00002140| 20 22 c0 09 5c 6e c3 4f | 21 87 22 20 5b 73 74 72 | "..\n.O|!." [str|
|00002150| 69 6e 67 2d 74 6f 2d 69 | 6e 74 20 78 20 4e 20 6e |ing-to-i|nt x N n|
|00002160| 69 6c 5d 20 34 5d 20 69 | 6e 74 2d 74 6f 2d 73 74 |il] 4] i|nt-to-st|
|00002170| 72 69 6e 67 20 23 5b 28 | 73 79 6d 29 20 22 c0 09 |ring #[(|sym) "..|
|00002180| 21 47 5c 6e 55 87 22 20 | 5b 73 79 6d 62 6f 6c 2d |!G\nU." |[symbol-|
|00002190| 6e 61 6d 65 20 73 79 6d | 20 6c 65 6e 5d 20 32 5d |name sym| len] 2]|
|000021a0| 20 65 66 73 2d 64 65 6c | 2d 66 72 6f 6d 2d 6c 73 | efs-del|-from-ls|
|000021b0| 2d 63 61 63 68 65 5d 20 | 38 5d 20 65 66 73 2d 72 |-cache] |8] efs-r|
|000021c0| 65 61 6c 6c 79 2d 66 69 | 6c 65 2d 70 20 23 5b 28 |eally-fi|le-p #[(|
|000021d0| 66 69 6c 65 20 65 6e 74 | 29 20 22 08 40 ae 91 c1 |file ent|) ".@...|
|000021e0| 20 70 5c 6e 1b 1c 1d c6 | 8e c7 12 c8 c9 0e 5c 6e | p\n....|......\n|
|000021f0| 5c 22 2c 87 22 20 5b 65 | 6e 74 20 6d 61 74 63 68 |\",." [e|nt match|
|00002200| 2d 64 61 74 61 20 63 61 | 73 65 2d 66 6f 6c 64 2d |-data ca|se-fold-|
|00002210| 73 65 61 72 63 68 20 63 | 66 73 20 62 75 66 66 20 |search c|fs buff |
|00002220| 6d 61 74 63 68 2d 64 61 | 74 61 20 28 28 62 79 74 |match-da|ta ((byt|
|00002230| 65 2d 63 6f 64 65 20 22 | c0 c1 c2 8f 88 c3 0c 21 |e-code "|.......!|
|00002240| 87 22 20 5b 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |." [nil |(byte-co|
|00002250| 64 65 20 22 8a 08 71 88 | 09 12 29 c3 87 22 20 5b |de "..q.|..).." [|
|00002260| 62 75 66 66 20 63 66 73 | 20 63 61 73 65 2d 66 6f |buff cfs| case-fo|
|00002270| 6c 64 2d 73 65 61 72 63 | 68 20 6e 69 6c 5d 20 31 |ld-searc|h nil] 1|
|00002280| 29 20 28 28 65 72 72 6f | 72 29 29 20 73 74 6f 72 |) ((erro|r)) stor|
|00002290| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 6d 61 74 |e-match-|data mat|
|000022a0| 63 68 2d 64 61 74 61 5d | 20 33 29 29 20 6e 69 6c |ch-data]| 3)) nil|
|000022b0| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 3b | string-|match ";|
|000022c0| 22 20 66 69 6c 65 5d 20 | 33 5d 20 65 66 73 2d 69 |" file] |3] efs-i|
|000022d0| 6e 74 65 72 6e 61 6c 2d | 66 69 6c 65 2d 6e 61 6d |nternal-|file-nam|
|000022e0| 65 2d 61 73 2d 64 69 72 | 65 63 74 6f 72 79 20 23 |e-as-dir|ectory #|
|000022f0| 5b 28 6e 61 6d 65 29 20 | 22 c0 20 70 09 1a 1b 1c |[(name) |". p....|
|00002300| c5 8e c6 11 c7 c8 0e 09 | 5c 22 ab 88 0e 09 ca 89 |........|\"......|
|00002310| 94 4f 16 09 c6 1e 0b cc | 0e 09 21 2d 87 22 20 5b |.O......|..!-." [|
|00002320| 6d 61 74 63 68 2d 64 61 | 74 61 20 63 61 73 65 2d |match-da|ta case-|
|00002330| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 63 66 73 20 |fold-sea|rch cfs |
|00002340| 62 75 66 66 20 6d 61 74 | 63 68 2d 64 61 74 61 20 |buff mat|ch-data |
|00002350| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 c1 c2 |((byte-c|ode "...|
|00002360| 8f 88 c3 0c 21 87 22 20 | 5b 6e 69 6c 20 28 62 79 |....!." |[nil (by|
|00002370| 74 65 2d 63 6f 64 65 20 | 22 8a 08 71 88 09 12 29 |te-code |"..q...)|
|00002380| c3 87 22 20 5b 62 75 66 | 66 20 63 66 73 20 63 61 |.." [buf|f cfs ca|
|00002390| 73 65 2d 66 6f 6c 64 2d | 73 65 61 72 63 68 20 6e |se-fold-|search n|
|000023a0| 69 6c 5d 20 31 29 20 28 | 28 65 72 72 6f 72 29 29 |il] 1) (|(error))|
|000023b0| 20 73 74 6f 72 65 2d 6d | 61 74 63 68 2d 64 61 74 | store-m|atch-dat|
|000023c0| 61 20 6d 61 74 63 68 2d | 64 61 74 61 5d 20 33 29 |a match-|data] 3)|
|000023d0| 29 20 6e 69 6c 20 73 74 | 72 69 6e 67 2d 6d 61 74 |) nil st|ring-mat|
|000023e0| 63 68 20 22 5c 5c 2e 5c | 5c 28 44 49 52 5c 5c 7c |ch "\\.\|\(DIR\\||
|000023f0| 64 69 72 5c 5c 29 5c 5c | 28 3b 5b 30 2d 39 5d 2b |dir\\)\\|(;[0-9]+|
|00002400| 5c 5c 29 3f 24 22 20 6e | 61 6d 65 20 30 20 66 69 |\\)?$" n|ame 0 fi|
|00002410| 6c 65 2d 6e 61 6d 65 2d | 68 61 6e 64 6c 65 72 2d |le-name-|handler-|
|00002420| 61 6c 69 73 74 20 66 69 | 6c 65 2d 6e 61 6d 65 2d |alist fi|le-name-|
|00002430| 61 73 2d 64 69 72 65 63 | 74 6f 72 79 5d 20 33 5d |as-direc|tory] 3]|
|00002440| 20 65 66 73 2d 72 65 6d | 6f 74 65 2d 64 69 72 65 | efs-rem|ote-dire|
|00002450| 63 74 6f 72 79 2d 66 69 | 6c 65 2d 6e 61 6d 65 20 |ctory-fi|le-name |
|00002460| 23 5b 28 64 69 72 29 20 | 22 c0 20 70 09 1a 1b 1c |#[(dir) |". p....|
|00002470| c5 8e c6 11 c7 0e 08 21 | 89 16 08 c9 ca cb cc 0e |.......!|........|
|00002480| 08 21 38 5c 22 ab 83 cd | aa 81 ce 50 2c 87 22 20 |.!8\"...|...P,." |
|00002490| 5b 6d 61 74 63 68 2d 64 | 61 74 61 20 63 61 73 65 |[match-d|ata case|
|000024a0| 2d 66 6f 6c 64 2d 73 65 | 61 72 63 68 20 63 66 73 |-fold-se|arch cfs|
|000024b0| 20 62 75 66 66 20 6d 61 | 74 63 68 2d 64 61 74 61 | buff ma|tch-data|
|000024c0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 | ((byte-|code "..|
|000024d0| c2 8f 88 c3 0c 21 87 22 | 20 5b 6e 69 6c 20 28 62 |.....!."| [nil (b|
|000024e0| 79 74 65 2d 63 6f 64 65 | 20 22 8a 08 71 88 09 12 |yte-code| "..q...|
|000024f0| 29 c3 87 22 20 5b 62 75 | 66 66 20 63 66 73 20 63 |).." [bu|ff cfs c|
|00002500| 61 73 65 2d 66 6f 6c 64 | 2d 73 65 61 72 63 68 20 |ase-fold|-search |
|00002510| 6e 69 6c 5d 20 31 29 20 | 28 28 65 72 72 6f 72 29 |nil] 1) |((error)|
|00002520| 29 20 73 74 6f 72 65 2d | 6d 61 74 63 68 2d 64 61 |) store-|match-da|
|00002530| 74 61 20 6d 61 74 63 68 | 2d 64 61 74 61 5d 20 33 |ta match|-data] 3|
|00002540| 29 29 20 6e 69 6c 20 64 | 69 72 65 63 74 6f 72 79 |)) nil d|irectory|
|00002550| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 64 69 72 20 73 |-file-na|me dir s|
|00002560| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5b 61 2d |tring-ma|tch "[a-|
|00002570| 7a 5d 22 20 32 20 65 66 | 73 2d 66 74 70 2d 70 61 |z]" 2 ef|s-ftp-pa|
|00002580| 74 68 20 22 2e 64 69 72 | 3b 31 22 20 22 2e 44 49 |th ".dir|;1" ".DI|
|00002590| 52 3b 31 22 5d 20 37 5d | 20 65 66 73 2d 61 6c 6c |R;1"] 7]| efs-all|
|000025a0| 6f 77 2d 63 68 69 6c 64 | 2d 6c 6f 6f 6b 75 70 20 |ow-child|-lookup |
|000025b0| 23 5b 28 68 6f 73 74 20 | 75 73 65 72 20 64 69 72 |#[(host |user dir|
|000025c0| 20 66 69 6c 65 29 20 22 | c0 c1 5c 6e 5c 22 ae 8c | file) "|..\n\"..|
|000025d0| c3 c4 21 ad 87 0c 3b ad | 83 0c 5c 6e 98 3f 87 22 |..!...;.|..\n.?."|
|000025e0| 20 5b 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | [string|-match "|
|000025f0| 5c 5c 2e 22 20 66 69 6c | 65 20 62 6f 75 6e 64 70 |\\." fil|e boundp|
|00002600| 20 64 69 72 65 64 2d 6c | 6f 63 61 6c 2d 76 61 72 | dired-l|ocal-var|
|00002610| 69 61 62 6c 65 73 2d 66 | 69 6c 65 5d 20 33 5d 20 |iables-f|ile] 3] |
|00002620| 22 5e 2e 20 5b 5e 20 09 | 2e 5d 2b 5c 5c 2e 5c 5c |"^. [^ .|.]+\\.\\|
|00002630| 28 45 58 45 5c 5c 7c 65 | 78 65 5c 5c 29 5b 3b 20 |(EXE\\|e|xe\\)[; |
|00002640| 5d 22 20 65 66 73 2d 64 | 69 72 65 64 2d 76 6d 73 |]" efs-d|ired-vms|
|00002650| 2d 72 65 2d 65 78 65 20 | 63 75 72 72 65 6e 74 2d |-re-exe |current-|
|00002660| 6c 6f 61 64 2d 6c 69 73 | 74 20 65 66 73 2d 64 69 |load-lis|t efs-di|
|00002670| 72 65 64 2d 72 65 2d 65 | 78 65 2d 61 6c 69 73 74 |red-re-e|xe-alist|
|00002680| 20 22 5e 2e 20 5b 5e 20 | 09 2e 5d 2b 5c 5c 2e 5c | "^. [^ |..]+\\.\|
|00002690| 5c 28 44 49 52 5c 5c 7c | 64 69 72 5c 5c 29 5b 3b |\(DIR\\||dir\\)[;|
|000026a0| 20 5d 22 20 65 66 73 2d | 64 69 72 65 64 2d 76 6d | ]" efs-|dired-vm|
|000026b0| 73 2d 72 65 2d 64 69 72 | 20 65 66 73 2d 64 69 72 |s-re-dir| efs-dir|
|000026c0| 65 64 2d 72 65 2d 64 69 | 72 2d 61 6c 69 73 74 20 |ed-re-di|r-alist |
|000026d0| 65 66 73 2d 64 69 72 65 | 64 2d 69 6e 73 65 72 74 |efs-dire|d-insert|
|000026e0| 2d 68 65 61 64 65 72 6c | 69 6e 65 20 23 5b 28 64 |-headerl|ine #[(d|
|000026f0| 69 72 29 20 22 8a c0 c1 | 21 ab 83 c2 79 88 60 1b |ir) "...|!...y.`.|
|00002700| c4 c5 77 88 c0 0e 06 21 | ab 85 c7 79 88 aa 8a c2 |..w....!|...y....|
|00002710| 79 88 c4 c5 77 88 c7 79 | 88 0b 60 7c 88 29 c8 63 |y...w..y|..`|.).c|
|00002720| 88 29 c9 0e 5c 6e 21 87 | 22 20 5b 6c 6f 6f 6b 69 |.)..\n!.|" [looki|
|00002730| 6e 67 2d 61 74 20 22 5e | 20 20 5c 5c 28 6c 69 73 |ng-at "^|  \\(lis|
|00002740| 74 20 5c 5c 29 3f 77 69 | 6c 64 63 61 72 64 20 22 |t \\)?wi|ldcard "|
|00002750| 20 31 20 73 74 61 72 74 | 20 22 20 09 5c 6e 22 20 | 1 start| " .\n" |
|00002760| 6e 69 6c 20 65 66 73 2d | 76 6d 73 2d 66 69 6c 65 |nil efs-|vms-file|
|00002770| 6e 61 6d 65 2d 72 65 67 | 65 78 70 20 30 20 22 20 |name-reg|exp 0 " |
|00002780| 5c 6e 22 20 65 66 73 2d | 72 65 61 6c 2d 64 69 72 |\n" efs-|real-dir|
|00002790| 65 64 2d 69 6e 73 65 72 | 74 2d 68 65 61 64 65 72 |ed-inser|t-header|
|000027a0| 6c 69 6e 65 20 64 69 72 | 5d 20 32 5d 20 65 66 73 |line dir|] 2] efs|
|000027b0| 2d 64 69 72 65 64 2d 66 | 69 78 75 70 2d 6c 69 73 |-dired-f|ixup-lis|
|000027c0| 74 69 6e 67 20 23 5b 28 | 66 69 6c 65 20 70 61 74 |ting #[(|file pat|
|000027d0| 68 20 26 6f 70 74 69 6f | 6e 61 6c 20 73 77 69 74 |h &optio|nal swit|
|000027e0| 63 68 65 73 20 77 69 6c | 64 63 61 72 64 29 20 22 |ches wil|dcard) "|
|000027f0| c0 c1 c2 1b c4 0d 21 29 | 5c 22 15 c6 c7 0d 21 50 |......!)|\"....!P|
|00002800| 1e 08 65 62 88 c9 0e 08 | c2 ca 23 ab 88 cb 94 cb |..eb....|..#.....|
|00002810| 95 7c 88 aa 70 29 65 62 | 88 c2 89 89 1e 0c 1e 0d |.|..p)eb|........|
|00002820| 1e 0e c9 cf c2 ca 23 ab | c2 d0 94 16 0d d0 95 16 |......#.|........|
|00002830| 0c 0e 0e ac a0 8a 65 62 | 88 c9 0e 11 d2 50 c2 ca |......eb|.....P..|
|00002840| 23 ab 8e cb 95 62 cb 79 | 88 60 5a d0 5a 16 0e aa |#....b.y|.`Z.Z...|
|00002850| 83 cb 16 0e 29 0e 0d 0e | 0c 7c 88 0e 0d 62 88 d3 |....)...|.|...b..|
|00002860| d4 0e 0e 69 5a d5 5d 5c | 22 88 aa 37 2b 65 62 88 |...iZ.]\|"..7+eb.|
|00002870| d6 c2 77 88 d7 d8 c2 ca | 23 ad 83 d9 da 21 87 22 |..w.....|#....!."|
|00002880| 20 5b 65 66 73 2d 66 69 | 78 2d 70 61 74 68 20 76 | [efs-fi|x-path v|
|00002890| 6d 73 20 6e 69 6c 20 66 | 69 6c 65 2d 6e 61 6d 65 |ms nil f|ile-name|
|000028a0| 2d 68 61 6e 64 6c 65 72 | 2d 61 6c 69 73 74 20 66 |-handler|-alist f|
|000028b0| 69 6c 65 2d 6e 61 6d 65 | 2d 64 69 72 65 63 74 6f |ile-name|-directo|
|000028c0| 72 79 20 70 61 74 68 20 | 22 5e 5c 5c 28 5b 5f 41 |ry path |"^\\([_A|
|000028d0| 2d 5a 61 2d 7a 30 2d 39 | 5d 5b 2d 5f 41 2d 5a 61 |-Za-z0-9|][-_A-Za|
|000028e0| 2d 7a 30 2d 39 5d 2a 5c | 5c 24 5c 5c 29 3f 22 20 |-z0-9]*\|\$\\)?" |
|000028f0| 72 65 67 65 78 70 2d 71 | 75 6f 74 65 20 72 65 67 |regexp-q|uote reg|
|00002900| 65 78 70 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |exp re-s|earch-fo|
|00002910| 72 77 61 72 64 20 74 20 | 30 20 65 6e 64 20 73 74 |rward t |0 end st|
|00002920| 61 72 74 20 63 6f 6c 20 | 22 3b 5b 30 2d 39 5d 2b |art col |";[0-9]+|
|00002930| 5b 20 09 5d 2a 5c 5c 28 | 5c 6e 5b 20 09 5d 2b 5c |[ .]*\\(|\n[ .]+\|
|00002940| 5c 29 5b 5e 3b 20 09 5c | 6e 5d 2b 5b 5e 5c 6e 3b |\)[^; .\|n]+[^\n;|
|00002950| 5d 2a 5c 6e 22 20 31 20 | 65 66 73 2d 76 6d 73 2d |]*\n" 1 |efs-vms-|
|00002960| 66 69 6c 65 6e 61 6d 65 | 2d 72 65 67 65 78 70 20 |filename|-regexp |
|00002970| 22 5b 20 09 5d 2b 5b 5e | 20 09 5c 6e 0d 5d 22 20 |"[ .]+[^| .\n.]" |
|00002980| 69 6e 73 65 72 74 2d 63 | 68 61 72 20 3f 5c 20 20 |insert-c|har ?\  |
|00002990| 32 20 22 5c 6e 22 20 73 | 65 61 72 63 68 2d 66 6f |2 "\n" s|earch-fo|
|000029a0| 72 77 61 72 64 20 22 5c | 6e 5c 6e 5c 6e 22 20 64 |rward "\|n\n\n" d|
|000029b0| 65 6c 65 74 65 2d 63 68 | 61 72 20 2d 31 5d 20 34 |elete-ch|ar -1] 4|
|000029c0| 5d 20 65 66 73 2d 64 69 | 72 65 64 2d 6d 61 6e 75 |] efs-di|red-manu|
|000029d0| 61 6c 2d 6d 6f 76 65 2d | 74 6f 2d 66 69 6c 65 6e |al-move-|to-filen|
|000029e0| 61 6d 65 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |ame #[(&|optional|
|000029f0| 20 72 61 69 73 65 2d 65 | 72 72 6f 72 20 62 6f 6c | raise-e|rror bol|
|00002a00| 20 65 6f 6c 29 20 22 08 | ac 88 8a c1 c2 77 88 60 | eol) ".|.....w.`|
|00002a10| 29 10 c2 1b 0c ab 85 0c | 62 88 aa 84 c5 c2 78 88 |).......|b.....x.|
|00002a20| c6 0e 07 08 c8 23 ab 85 | c9 94 62 aa 87 0e 5c 6e |.....#..|..b...\n|
|00002a30| ad 83 cb cc 21 29 87 22 | 20 5b 65 6f 6c 20 22 5e |....!)."| [eol "^|
|00002a40| 0d 5c 6e 22 20 6e 69 6c | 20 63 61 73 65 2d 66 6f |.\n" nil| case-fo|
|00002a50| 6c 64 2d 73 65 61 72 63 | 68 20 62 6f 6c 20 22 5e |ld-searc|h bol "^|
|00002a60| 5c 6e 0d 22 20 72 65 2d | 73 65 61 72 63 68 2d 66 |\n." re-|search-f|
|00002a70| 6f 72 77 61 72 64 20 65 | 66 73 2d 76 6d 73 2d 66 |orward e|fs-vms-f|
|00002a80| 69 6c 65 6e 61 6d 65 2d | 72 65 67 65 78 70 20 74 |ilename-|regexp t|
|00002a90| 20 30 20 72 61 69 73 65 | 2d 65 72 72 6f 72 20 65 | 0 raise|-error e|
|00002aa0| 72 72 6f 72 20 22 4e 6f | 20 66 69 6c 65 20 6f 6e |rror "No| file on|
|00002ab0| 20 74 68 69 73 20 6c 69 | 6e 65 22 5d 20 34 5d 20 | this li|ne"] 4] |
|00002ac0| 65 66 73 2d 64 69 72 65 | 64 2d 6d 61 6e 75 61 6c |efs-dire|d-manual|
|00002ad0| 2d 6d 6f 76 65 2d 74 6f | 2d 65 6e 64 2d 6f 66 2d |-move-to|-end-of-|
|00002ae0| 66 69 6c 65 6e 61 6d 65 | 20 23 5b 28 26 6f 70 74 |filename| #[(&opt|
|00002af0| 69 6f 6e 61 6c 20 6e 6f | 2d 65 72 72 6f 72 20 62 |ional no|-error b|
|00002b00| 6f 6c 20 65 6f 6c 29 20 | 22 60 18 09 ab a7 5c 6e |ol eol) |"`....\n|
|00002b10| ac a4 0b ae 87 8a c4 c5 | 78 88 60 29 53 66 c6 61 |........|x.`)Sf.a|
|00002b20| ab 94 c7 c8 20 21 ab 88 | c9 ca cb 21 21 88 aa 86 |.... !..|...!!...|
|00002b30| c9 ca cc 21 21 88 cd c5 | 77 88 08 60 55 ac 85 67 |...!!...|w..`U..g|
|00002b40| ce 73 ac 89 5c 6e 3f ad | 86 c9 cf 21 aa 81 60 29 |.s..\n?.|...!..`)|
|00002b50| 87 22 20 5b 6f 70 6f 69 | 6e 74 20 73 65 6c 65 63 |." [opoi|nt selec|
|00002b60| 74 69 76 65 2d 64 69 73 | 70 6c 61 79 20 6e 6f 2d |tive-dis|play no-|
|00002b70| 65 72 72 6f 72 20 62 6f | 6c 20 22 5e 0d 5c 6e 22 |error bo|l "^.\n"|
|00002b80| 20 6e 69 6c 20 3f 5c 72 | 20 64 69 72 65 64 2d 73 | nil ?\r| dired-s|
|00002b90| 75 62 64 69 72 2d 68 69 | 64 64 65 6e 2d 70 20 64 |ubdir-hi|dden-p d|
|00002ba0| 69 72 65 64 2d 63 75 72 | 72 65 6e 74 2d 64 69 72 |ired-cur|rent-dir|
|00002bb0| 65 63 74 6f 72 79 20 65 | 72 72 6f 72 20 73 75 62 |ectory e|rror sub|
|00002bc0| 73 74 69 74 75 74 65 2d | 63 6f 6d 6d 61 6e 64 2d |stitute-|command-|
|00002bd0| 6b 65 79 73 20 22 46 69 | 6c 65 20 6c 69 6e 65 20 |keys "Fi|le line |
|00002be0| 69 73 20 68 69 64 64 65 | 6e 2e 20 54 79 70 65 20 |is hidde|n. Type |
|00002bf0| 5c 5c 5b 64 69 72 65 64 | 2d 68 69 64 65 2d 73 75 |\\[dired|-hide-su|
|00002c00| 62 64 69 72 5d 20 74 6f | 20 75 6e 68 69 64 65 2e |bdir] to| unhide.|
|00002c10| 22 20 22 46 69 6c 65 20 | 6c 69 6e 65 20 69 73 20 |" "File |line is |
|00002c20| 6f 6d 69 74 74 65 64 2e | 20 54 79 70 65 20 5c 5c |omitted.| Type \\|
|00002c30| 5b 64 69 72 65 64 2d 6f | 6d 69 74 2d 74 6f 67 67 |[dired-o|mit-togg|
|00002c40| 6c 65 5d 20 74 6f 20 75 | 6e 2d 6f 6d 69 74 2e 22 |le] to u|n-omit."|
|00002c50| 20 22 2d 5f 41 2d 5a 61 | 2d 7a 30 2d 39 24 2e 3b | "-_A-Za|-z0-9$.;|
|00002c60| 22 20 28 3f 5c 20 20 3f | 5c 74 20 3f 5c 6e 20 3f |" (?\  ?|\t ?\n ?|
|00002c70| 5c 72 29 20 22 4e 6f 20 | 66 69 6c 65 20 6f 6e 20 |\r) "No |file on |
|00002c80| 74 68 69 73 20 6c 69 6e | 65 22 5d 20 33 5d 20 65 |this lin|e"] 3] e|
|00002c90| 66 73 2d 64 69 72 65 64 | 2d 6c 73 2d 74 72 69 6d |fs-dired|-ls-trim|
|00002ca0| 20 23 5b 6e 69 6c 20 22 | 65 62 88 c0 19 c2 0b 21 | #[nil "|eb.....!|
|00002cb0| 88 29 c4 79 88 65 60 7c | 88 c5 79 88 60 64 7c 87 |.).y.e`||..y.`d|.|
|00002cc0| 22 20 5b 6e 69 6c 20 63 | 61 73 65 2d 66 6f 6c 64 |" [nil c|ase-fold|
|00002cd0| 2d 73 65 61 72 63 68 20 | 72 65 2d 73 65 61 72 63 |-search |re-searc|
|00002ce0| 68 2d 66 6f 72 77 61 72 | 64 20 65 66 73 2d 76 6d |h-forwar|d efs-vm|
|00002cf0| 73 2d 66 69 6c 65 6e 61 | 6d 65 2d 72 65 67 65 78 |s-filena|me-regex|
|00002d00| 70 20 30 20 31 5d 20 32 | 5d 20 65 66 73 2d 69 6e |p 0 1] 2|] efs-in|
|00002d10| 74 65 72 6e 61 6c 2d 66 | 69 6c 65 2d 6e 61 6d 65 |ternal-f|ile-name|
|00002d20| 2d 73 61 6e 73 2d 76 65 | 72 73 69 6f 6e 73 20 23 |-sans-ve|rsions #|
|00002d30| 5b 28 6e 61 6d 65 20 26 | 6f 70 74 69 6f 6e 61 6c |[(name &|optional|
|00002d40| 20 6b 65 65 70 2d 62 61 | 63 6b 75 70 2d 76 65 72 | keep-ba|ckup-ver|
|00002d50| 73 69 6f 6e 29 20 22 c0 | 20 70 09 1a 1b 1c c5 8e |sion) ".| p......|
|00002d60| c6 11 c7 c8 0e 09 5c 22 | ab 88 0e 09 ca 89 94 4f |......\"|.......O|
|00002d70| aa 82 0e 09 2c 87 22 20 | 5b 6d 61 74 63 68 2d 64 |....,." |[match-d|
|00002d80| 61 74 61 20 63 61 73 65 | 2d 66 6f 6c 64 2d 73 65 |ata case|-fold-se|
|00002d90| 61 72 63 68 20 63 66 73 | 20 62 75 66 66 20 6d 61 |arch cfs| buff ma|
|00002da0| 74 63 68 2d 64 61 74 61 | 20 28 28 62 79 74 65 2d |tch-data| ((byte-|
|00002db0| 63 6f 64 65 20 22 c0 c1 | c2 8f 88 c3 0c 21 87 22 |code "..|.....!."|
|00002dc0| 20 5b 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 | [nil (b|yte-code|
|00002dd0| 20 22 8a 08 71 88 09 12 | 29 c3 87 22 20 5b 62 75 | "..q...|).." [bu|
|00002de0| 66 66 20 63 66 73 20 63 | 61 73 65 2d 66 6f 6c 64 |ff cfs c|ase-fold|
|00002df0| 2d 73 65 61 72 63 68 20 | 6e 69 6c 5d 20 31 29 20 |-search |nil] 1) |
|00002e00| 28 28 65 72 72 6f 72 29 | 29 20 73 74 6f 72 65 2d |((error)|) store-|
|00002e10| 6d 61 74 63 68 2d 64 61 | 74 61 20 6d 61 74 63 68 |match-da|ta match|
|00002e20| 2d 64 61 74 61 5d 20 33 | 29 29 20 6e 69 6c 20 73 |-data] 3|)) nil s|
|00002e30| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 3b 5b 30 |tring-ma|tch ";[0|
|00002e40| 2d 39 5d 2b 24 22 20 6e | 61 6d 65 20 30 5d 20 33 |-9]+$" n|ame 0] 3|
|00002e50| 5d 20 65 66 73 2d 64 69 | 72 65 64 2d 63 6f 6c 6c |] efs-di|red-coll|
|00002e60| 65 63 74 2d 66 69 6c 65 | 2d 76 65 72 73 69 6f 6e |ect-file|-version|
|00002e70| 73 20 23 5b 6e 69 6c 20 | 22 c0 09 73 c2 1b 1c c5 |s #[nil |"..s....|
|00002e80| c6 21 88 0b 2a 87 22 20 | 5b 76 6d 73 20 65 66 73 |.!..*." |[vms efs|
|00002e90| 2d 63 61 73 65 2d 69 6e | 73 65 6e 73 69 74 69 76 |-case-in|sensitiv|
|00002ea0| 65 2d 68 6f 73 74 2d 74 | 79 70 65 73 20 6e 69 6c |e-host-t|ypes nil|
|00002eb0| 20 72 65 73 75 6c 74 20 | 63 6f 6d 70 6c 65 74 69 | result |completi|
|00002ec0| 6f 6e 2d 69 67 6e 6f 72 | 65 2d 63 61 73 65 20 64 |on-ignor|e-case d|
|00002ed0| 69 72 65 64 2d 6d 61 70 | 2d 64 69 72 65 64 2d 66 |ired-map|-dired-f|
|00002ee0| 69 6c 65 2d 6c 69 6e 65 | 73 20 23 5b 28 66 6e 29 |ile-line|s #[(fn)|
|00002ef0| 20 22 c0 c1 5c 6e 5c 22 | ad b6 5c 6e c3 89 94 4f | "..\n\"|..\n...O|
|00002f00| 1c c5 5c 6e c3 89 94 54 | 4f 21 89 1e 06 47 1e 07 |..\n...T|O!...G..|
|00002f10| c8 0c 0e 09 5c 22 3f ad | 87 ca 0e 06 cb 5c 6e 21 |....\"?.|.....\n!|
|00002f20| 5c 22 89 1e 0c ad 8d 0c | cd ce 0e 0c 5c 22 42 0e |\"......|....\"B.|
|00002f30| 09 42 89 16 09 2c 87 22 | 20 5b 73 74 72 69 6e 67 |.B...,."| [string|
|00002f40| 2d 6d 61 74 63 68 20 22 | 3b 5b 30 2d 39 5d 2b 24 |-match "|;[0-9]+$|
|00002f50| 22 20 66 6e 20 30 20 62 | 61 73 65 2d 66 6e 20 66 |" fn 0 b|ase-fn f|
|00002f60| 69 6c 65 2d 6e 61 6d 65 | 2d 6e 6f 6e 64 69 72 65 |ile-name|-nondire|
|00002f70| 63 74 6f 72 79 20 62 61 | 73 65 2d 76 65 72 73 69 |ctory ba|se-versi|
|00002f80| 6f 6e 20 62 76 2d 6c 65 | 6e 67 74 68 20 61 73 73 |on bv-le|ngth ass|
|00002f90| 6f 63 20 72 65 73 75 6c | 74 20 66 69 6c 65 2d 6e |oc resul|t file-n|
|00002fa0| 61 6d 65 2d 61 6c 6c 2d | 63 6f 6d 70 6c 65 74 69 |ame-all-|completi|
|00002fb0| 6f 6e 73 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |ons file|-name-di|
|00002fc0| 72 65 63 74 6f 72 79 20 | 70 6f 73 73 69 62 69 6c |rectory |possibil|
|00002fd0| 69 74 69 65 73 20 6d 61 | 70 63 61 72 20 23 5b 28 |ities ma|pcar #[(|
|00002fe0| 66 6e 29 20 22 c0 09 5c | 6e c3 4f 21 87 22 20 5b |fn) "..\|n.O!." [|
|00002ff0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 66 6e |string-t|o-int fn|
|00003000| 20 62 76 2d 6c 65 6e 67 | 74 68 20 6e 69 6c 5d 20 | bv-leng|th nil] |
|00003010| 34 5d 5d 20 35 5d 5d 20 | 32 5d 20 65 66 73 2d 64 |4]] 5]] |2] efs-d|
|00003020| 69 72 65 64 2d 66 6c 61 | 67 2d 62 61 63 6b 75 70 |ired-fla|g-backup|
|00003030| 2d 66 69 6c 65 73 20 23 | 5b 28 26 6f 70 74 69 6f |-files #|[(&optio|
|00003040| 6e 61 6c 20 75 6e 66 6c | 61 67 2d 70 29 20 22 c0 |nal unfl|ag-p) ".|
|00003050| c1 c2 89 1b 1c 1d 1e 06 | 0e 07 ab 86 c8 14 c9 13 |........|........|
|00003060| aa 85 0e 5c 6e 14 cb 13 | cc c0 0c 0b 23 2c 87 22 |...\n...|....#,."|
|00003070| 20 5b 31 20 30 20 6e 69 | 6c 20 6d 73 67 20 6d 61 | [1 0 ni|l msg ma|
|00003080| 72 6b 65 72 20 6b 65 70 | 74 2d 6f 6c 64 2d 76 65 |rker kep|t-old-ve|
|00003090| 72 73 69 6f 6e 73 20 64 | 69 72 65 64 2d 6b 65 70 |rsions d|ired-kep|
|000030a0| 74 2d 76 65 72 73 69 6f | 6e 73 20 75 6e 66 6c 61 |t-versio|ns unfla|
|000030b0| 67 2d 70 20 3f 5c 20 20 | 22 55 6e 66 6c 61 67 67 |g-p ?\  |"Unflagg|
|000030c0| 69 6e 67 20 6f 6c 64 20 | 76 65 72 73 69 6f 6e 73 |ing old |versions|
|000030d0| 22 20 64 69 72 65 64 2d | 64 65 6c 2d 6d 61 72 6b |" dired-|del-mark|
|000030e0| 65 72 20 22 50 75 72 67 | 69 6e 67 20 6f 6c 64 20 |er "Purg|ing old |
|000030f0| 76 65 72 73 69 6f 6e 73 | 22 20 64 69 72 65 64 2d |versions|" dired-|
|00003100| 63 6c 65 61 6e 2d 64 69 | 72 65 63 74 6f 72 79 5d |clean-di|rectory]|
|00003110| 20 34 20 6e 69 6c 20 22 | 50 22 5d 20 65 66 73 2d | 4 nil "|P"] efs-|
|00003120| 69 6e 74 65 72 6e 61 6c | 2d 64 69 66 66 2d 6c 61 |internal|-diff-la|
|00003130| 74 65 73 74 2d 62 61 63 | 6b 75 70 2d 66 69 6c 65 |test-bac|kup-file|
|00003140| 20 23 5b 28 66 6e 29 20 | 22 c0 20 70 09 1a 1b 1c | #[(fn) |". p....|
|00003150| c5 8e c6 11 c7 c8 0e 09 | 5c 22 ad c1 0e 09 ca 89 |........|\"......|
|00003160| 94 54 4f cb 0e 09 ca 94 | 54 c6 4f 21 53 c6 89 1e |.TO.....|T.O!S...|
|00003170| 0c 1e 0d 1e 0e 1e 0f 0e | 0e ca 56 89 16 0d ab 96 |........|..V.....|
|00003180| d0 0e 0f d1 0e 0e 21 50 | 89 16 0c 21 ac 88 0e 0e |......!P|...!....|
|00003190| 53 89 16 0e aa 63 0e 0d | ad 82 0e 0c 2c 2c 87 22 |S....c..|....,,."|
|000031a0| 20 5b 6d 61 74 63 68 2d | 64 61 74 61 20 63 61 73 | [match-|data cas|
|000031b0| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 63 66 |e-fold-s|earch cf|
|000031c0| 73 20 62 75 66 66 20 6d | 61 74 63 68 2d 64 61 74 |s buff m|atch-dat|
|000031d0| 61 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |a ((byte|-code ".|
|000031e0| c1 c2 8f 88 c3 0c 21 87 | 22 20 5b 6e 69 6c 20 28 |......!.|" [nil (|
|000031f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 8a 08 71 88 09 |byte-cod|e "..q..|
|00003200| 12 29 c3 87 22 20 5b 62 | 75 66 66 20 63 66 73 20 |.).." [b|uff cfs |
|00003210| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00003220| 20 6e 69 6c 5d 20 31 29 | 20 28 28 65 72 72 6f 72 | nil] 1)| ((error|
|00003230| 29 29 20 73 74 6f 72 65 | 2d 6d 61 74 63 68 2d 64 |)) store|-match-d|
|00003240| 61 74 61 20 6d 61 74 63 | 68 2d 64 61 74 61 5d 20 |ata matc|h-data] |
|00003250| 33 29 29 20 6e 69 6c 20 | 73 74 72 69 6e 67 2d 6d |3)) nil |string-m|
|00003260| 61 74 63 68 20 22 3b 5b | 30 2d 39 5d 2b 24 22 20 |atch ";[|0-9]+$" |
|00003270| 66 6e 20 30 20 73 74 72 | 69 6e 67 2d 74 6f 2d 69 |fn 0 str|ing-to-i|
|00003280| 6e 74 20 66 69 6c 65 20 | 66 6f 75 6e 64 20 6e 75 |nt file |found nu|
|00003290| 6d 20 62 61 73 65 20 66 | 69 6c 65 2d 65 78 69 73 |m base f|ile-exis|
|000032a0| 74 73 2d 70 20 69 6e 74 | 2d 74 6f 2d 73 74 72 69 |ts-p int|-to-stri|
|000032b0| 6e 67 5d 20 36 5d 20 65 | 66 73 2d 70 61 72 73 65 |ng] 6] e|fs-parse|
|000032c0| 2d 6c 69 73 74 69 6e 67 | 20 76 6d 73 3a 66 75 6c |-listing| vms:ful|
|000032d0| 6c 20 23 5b 28 68 6f 73 | 74 20 75 73 65 72 20 64 |l #[(hos|t user d|
|000032e0| 69 72 20 70 61 74 68 20 | 26 6f 70 74 69 6f 6e 61 |ir path |&optiona|
|000032f0| 6c 20 73 77 69 74 63 68 | 65 73 29 20 22 65 62 88 |l switch|es) "eb.|
|00003300| c0 20 70 09 1a 1b 1c c5 | 8e c6 11 c7 20 2c 87 22 |. p.....|.... ,."|
|00003310| 20 5b 6d 61 74 63 68 2d | 64 61 74 61 20 63 61 73 | [match-|data cas|
|00003320| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 63 66 |e-fold-s|earch cf|
|00003330| 73 20 62 75 66 66 20 6d | 61 74 63 68 2d 64 61 74 |s buff m|atch-dat|
|00003340| 61 20 28 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |a ((byte|-code ".|
|00003350| c1 c2 8f 88 c3 0c 21 87 | 22 20 5b 6e 69 6c 20 28 |......!.|" [nil (|
|00003360| 62 79 74 65 2d 63 6f 64 | 65 20 22 8a 08 71 88 09 |byte-cod|e "..q..|
|00003370| 12 29 c3 87 22 20 5b 62 | 75 66 66 20 63 66 73 20 |.).." [b|uff cfs |
|00003380| 63 61 73 65 2d 66 6f 6c | 64 2d 73 65 61 72 63 68 |case-fol|d-search|
|00003390| 20 6e 69 6c 5d 20 31 29 | 20 28 28 65 72 72 6f 72 | nil] 1)| ((error|
|000033a0| 29 29 20 73 74 6f 72 65 | 2d 6d 61 74 63 68 2d 64 |)) store|-match-d|
|000033b0| 61 74 61 20 6d 61 74 63 | 68 2d 64 61 74 61 5d 20 |ata matc|h-data] |
|000033c0| 33 29 29 20 6e 69 6c 20 | 65 66 73 2d 70 61 72 73 |3)) nil |efs-pars|
|000033d0| 65 2d 76 6d 73 2d 6c 69 | 73 74 69 6e 67 5d 20 33 |e-vms-li|sting] 3|
|000033e0| 5d 20 23 5b 28 64 69 72 | 29 20 22 c0 63 88 c1 75 |] #[(dir|) ".c..u|
|000033f0| 88 c2 0b 21 87 22 20 5b | 22 20 5c 6e 22 20 2d 32 |...!." [|" \n" -2|
|00003400| 20 65 66 73 2d 72 65 61 | 6c 2d 64 69 72 65 64 2d | efs-rea|l-dired-|
|00003410| 69 6e 73 65 72 74 2d 68 | 65 61 64 65 72 6c 69 6e |insert-h|eaderlin|
|00003420| 65 20 64 69 72 5d 20 32 | 5d 20 23 5b 28 26 6f 70 |e dir] 2|] #[(&op|
|00003430| 74 69 6f 6e 61 6c 20 72 | 61 69 73 65 2d 65 72 72 |tional r|aise-err|
|00003440| 6f 72 20 62 6f 6c 20 65 | 6f 6c 29 20 22 c0 19 c2 |or bol e|ol) "...|
|00003450| 0b 0c 0d 23 29 87 22 20 | 5b 76 6d 73 20 65 66 73 |...#)." |[vms efs|
|00003460| 2d 64 69 72 65 64 2d 6c | 69 73 74 69 6e 67 2d 74 |-dired-l|isting-t|
|00003470| 79 70 65 20 65 66 73 2d | 64 69 72 65 64 2d 6d 61 |ype efs-|dired-ma|
|00003480| 6e 75 61 6c 2d 6d 6f 76 | 65 2d 74 6f 2d 66 69 6c |nual-mov|e-to-fil|
|00003490| 65 6e 61 6d 65 20 72 61 | 69 73 65 2d 65 72 72 6f |ename ra|ise-erro|
|000034a0| 72 20 62 6f 6c 20 65 6f | 6c 5d 20 34 5d 20 23 5b |r bol eo|l] 4] #[|
|000034b0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6e 6f 2d 65 72 |(&option|al no-er|
|000034c0| 72 6f 72 20 62 6f 6c 20 | 65 6f 6c 29 20 22 c0 19 |ror bol |eol) "..|
|000034d0| c2 0b 0c 0d 23 29 87 22 | 20 5b 76 6d 73 20 65 66 |....#)."| [vms ef|
|000034e0| 73 2d 64 69 72 65 64 2d | 6c 69 73 74 69 6e 67 2d |s-dired-|listing-|
|000034f0| 74 79 70 65 20 65 66 73 | 2d 64 69 72 65 64 2d 6d |type efs|-dired-m|
|00003500| 61 6e 75 61 6c 2d 6d 6f | 76 65 2d 74 6f 2d 65 6e |anual-mo|ve-to-en|
|00003510| 64 2d 6f 66 2d 66 69 6c | 65 6e 61 6d 65 20 6e 6f |d-of-fil|ename no|
|00003520| 2d 65 72 72 6f 72 20 62 | 6f 6c 20 65 6f 6c 5d 20 |-error b|ol eol] |
|00003530| 34 5d 5d 20 35 29 0a    |                         |4]] 5). |        |
+--------+-------------------------+-------------------------+--------+--------+